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DESIGN OVERVIEW OF THE EXOS DRIVER/ACP 
FOR RSX-11M SYSTEMS 

by 

Dipu Bose 

1. I/O PHILOSOPHY OF RSX-11M 



Memory constraints and compatability between different versions of 
RSX-11M dominated the design philosophy and the strategy used in 
creating the RSX-11M Operating System. To meet its performance and 
space goals, the RSX-11M I/O system attempts to centralize the 
common functions, thus eliminating the inclusion of repeatative code in 
each and every driver in the system. To achieve this, tabular data 
structures are designed in the system, which are used to drive the 
centralized routines. The effect is to reduce substantially the size 
of individual I/O drivers. 



2. THE STRUCTURE OF THE I/O DRIVER 

The next few sections describe the I/O driver structure of RSX-11M. 
Refer to the "Guide to writing an I/O driver" Manual for more 
detailed and thorough treatment. 

The Executive processes I/O requests using the following : 

. Ancillary Control Processor (ACP) 

. A collection of Executive components consisting of : 

a. QIO directive processing 

b. I/O related subroutines 

c. The I/O drivers 

2.1 An ACP is responsible for maintaining the structures and 
integrity of the device (or a collection of devices) related 
data structures. It is an asynchronous privileged task which 
implements a protocol (or set of services) for a class of a 
device. It functions as an extension of the Executive and 
frequently operates with Executive privilege. Since an ACP is 
a task, it has all the attributes of a task together with the 
ability to receive I/O packets from other tasks, as a process. 
The latter attribute permits it to act as an I/O handler, which 
can compete with user tasks for system resources more equitably 
than an I/O driver could. This is because an I/O driver has no 
task identity of its own. Also unlike the I/O driver, an ACP 
can perform I/O to other devices during the processing of an 
I/O request. 

2.2 The QIO directive is the lowest level of task I/O. Any task 
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can issue a QIO directive which allows direct control over 
devices that are connected to a system and have an I/O 
driver. The QIO directive forces all I/O requests from user 
tasks to go through the Executive. The Executive works to 
prevent tasks from destructively interfering with each other 
and with the Executive itself. 

2.3 An I/O driver is an asynchronous process (not a task) that 
calls and is called by the Executive to serivce an external 
I/O device or devices. The role of an I/O driver in the 
RSX-11M I/O structure is specific and limited. A driver 
performs the following functions : 

2.3.1 Receives and serivces interrupts from its I/O devices. 

2.3.2 Initiates I/O operations when requested to do so by the 
Executive. 

2.3.3 Cancels in-progress I/O operations. 

2.3.4 Performs other (device-specific) functions upon power 
failures and device time-out. 

As an integral part of the Executive, a driver possesses its 
own context, allows or disallows interrupts, and synchronizes 
its access to shared data bases with that of other Executive 
processes. A driver can handle several device controllers, 
all operating in parallel. 

Every I/O driver in the RSX-11M system has the following entry 
points: 

a. Device interrupts 

b. I/O initiator 

c. Device time-out 

d. Cancel I/O 

e. Power failure 

Apart from the first entry point, which is entered by hardware 
device interrupts, all are entered by calls from the Executive. 

2.4 I/O Related Subroutines 

RSX-11M provides a set of centralized subroutines which operate 
on the centralized data bases and give the user a significant 
amount of flexibility while maintaining the integrity and 
uniformity in coding. Also a significant amount of code 
repeatation can be avoided with their proficient use. 



3. I/O RELATED DATA STRUCTURE 

An I/O driver interacts with the following data structures 
a. Device Control Block (DCB) 
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b. Unit Control Block (UCB) 

c. Status Control Block (SCB) 

d. The I/O Packet 

e. The I/O Queue 

f. The Fork List 

e. Device Interrupt Vectors 

The first four of these data structures are especially important to 
the driver because it is by means of these data structures that all 
I/O operations are effected. They also serve as communication and 
co-ordination vehicles between the Executive and individual drivers. 
Entry to a driver following a device interrupt is accomplished through 
the appropriate hardware device interrupt vector/s. 

a. The Device Control Block (DCB) 

At least one DCB exists for each type of device appearing in 
a system. The function of the DCB is to describe the static 
characteristics of both the device controller and the units 
attached to the controller. All the DCB's in a system forms 
a forward link list, with the last DCB having a link to 
zero. 

b. The Unit Control Block (UCB) 

One UCB exists for each device unit attached to a system. 
Much of the information in the UCB is static, though a few 
dynamic parameters exist. From the UCB, however, it is 
possible to access most of the other structures in the I/O 
data base. Few of its contents are used and modified by both 
Executive and the driver. 

c. The Status Control Block (SCB) 

One SCB exists for each device controller in the system. This 
is true even if the controller handles more than one device 
unit. Most of the information in the SCB is dynamic. Both 
the Executive and the driver use the SCB. 

d. The I/O Packet 

The I/O Packet is built dynamically during the QIO directive 
processing and is subsequently delivered to the driver by 
a call to the system Executive. No static fields exist with 
respect to a driver and is generated mostly from the 
information passed in the directive parameter block. 

e. I/O Queue 

The QIO directive after successfully generating an I/O 
packet inserts it into a device-specef ic, priority oriented 
ordered list of packets called I/O Queue. Each I/O queue 
listhead is located in the SCB to which the I/O request apply. 
When a device needs work, it requests the Executive to dequeue 
the next I/O packet and delivers it to the requesting driver. 
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Normally the driver does not directly manipulate the I/O queue. 

f . Fork List 

Fork List is a mechanism by which RSX-11M splits off a process 
that requires access to shared data bases, or that require 
more CPU time to process an interrupt. A process that calls 
$FORK( an executive routine ), requests the Executive to 
transform it into a 'fork process 1 and place it in a fork list. 
A call to $FORK saves a "snapshot" of the process (R4,R5 and 
PC) in a fork block. This fork block is queued on the fork 
list in first-in-first-out order. 

g. The Device Interrupt Vector 

The device interrupt vector consists of two consecutive words 
giving the address of the interrupt service routine and the 
priority at which it is to run. The low four bits of the second 
word of the interrupt vector must contain the number of the 
controller that interrupts through this vector. This 
requirement enables a driver to service several controllers 
with a few code changes. 



4. EXECUTIVE SERVICES : 

The Executive provides services related to I/O drivers that can be 
categorized as pre- and post- driver initiation. The pre initiation 
services are those performed by the Executive during its processing 
of a QIO directive. Its goal is to extract from the QIO directive 
all I/O support functions not directly related to the actual issuance 
of a function request to a device. 

The post initiation services are made available to the driver after it 
has been given control, either by the Executive or as the result of an 
interrupt. They are available as needed by means of Executive calls. 

5. ASYNCHRONOUS SYSTEM TRAPS (AST) 

The primary purpose of an AST is to inform the task that a certain 
event has occurred. For example, the completion of an I/O operation. 
As soon as the task has serviced the event, it can return to the 
interrupted code. When an AST occurs, the Executive pushes the task's 
Wait For Mask Word, the DSW, the PSW and the PC into the task's stack. 
This information saves the state of the task so that the AST service 
routine has access to all the available Executive services. Most of the 
Executive directive calls has an optional AST entry point, such that 
AST occurs upon a certain condition, e.g. an I/O completion, so that 
some user specified operation could now be done at that entry point. 
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6. FLOW OF AN I/O REQUEST 



The flow of an I/O request, issued by the user by issuing a OIO 
directive, is as follows : 



6.1 Task issues QIO directive. 

6.2 QIO processing. 

6.2.1 First level validity checks. 

The QIO directive processor validates the Logical Unit 
Number (LUN) and UCB pointer. 

6.2.2 Redirect Algorithm . 

Because the Unit Control Block (UCB) may have been 
dynamically redirected by an MCR redirect command, the 
QIO directive traces the redirect linkage until the 
target UCB is found. 

6.2.3 Additional Validity Checks. 

The Event Flag Number (EFN) and the address of the I/O 
status block (IOSB) are validated. The event flag is 
reset and the I/O status block is cleared. 

6.3 Executive obtains storage for and creates an I/O packet. 

The QIO directive processor now requires an 18-word block of 
dynamic storage for use as an I/O packet. It inserts into the 
packet, data items that are used subsequently by both the 
Executive and the driver in fulfilling the I/O request. Most 
items originate in the requesting task's directive parameter 
block (DPB). 



6.4 Executive validates the function requested. 

The function is one of the four possible types : 

Control 
No-op 
. ACP 

Transfer 

Control functions are queued to the driver. If the function is 
IO.KIL, the driver is called at its cancel I/O entry point. The 
IO.KIL request is then completed sucessfully. 

No-op functions do not result in data transfers. The Executive 
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"performs" them without calling the driver. No-ops return a 
status of IS. SUC in the I/O status block. 

AGP functions are those functions which are to be processed by 
the ACP. The Executive queues the I/O packet to the ACP and 
issues a run request of the ACP, if it is stopped. 

Transfer functions are address checked and queued to the 
proper driver. Then the driver is called at its initiator entry 
point. 



6.5 Driver Processing 



6.5.1 Request work 

To obtain work, the driver calls the $GTPKT routine. 
$GTPKT either provides work, if it exists, or informs 
the driver that no work is available, or that the SCB 
is busy. If no work exists, the driver returns to its 
caller. If work is available, $GTPKT sets the device 
controller and unit to "busy", dequeues an I/O request 
packet and returns to the driver. 

If UC.QUE is set, the packet is passed to the driver 
at its initiator entry point. The driver is entered 
at its entry point with some registers set to specific 
values like address of I/O packet, address of the UCB 
and etc. If the request is to be processed by an ACP, 
the packet is queued to the ACP. 

6.5.2 Issue I/O 

From the available data structures, the driver 
initiates the required I/O operation and returns to its 
caller. A subsequent interrupt may inform the driver 
that the initiated function is complete, assuming the 
device is interrupt driven. 

6.6 Interrupt Processing. 

When a previously issued I/O operation interrupts the driver, 
the interrupt causes a direct entry into the driver, which 
processes the interrupt according to the programming protocol. 
According to the protocol, the driver may process the interrupt 
at priority 7, at the priority of the interrupting device, or 
at fork level. If the processing of the I/O request associated 
with the interrupt is still incomplete, the driver initiates 
further I/O to the device., When the processing of an I/O 
request is complete, the driver calls $IODON. 

6.7 I/O Done Processing 
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$IODON removes the "busy" status from the device unit and 
controller, queues an AST, if required, and determines if a 
checkpoint request pending for the issuing task can now be 
effected. The IOSB and event flag, if specified, are updated 
and $IODON returns to the driver. The driver branches to its 
initiator entry point and looks for more work. This procedure 
is followed until the driver finds the queue empty, whereupon 
the driver returns to its caller. 

Eventually, the processor is granted to another ready-to-run 
task that issues a QIO directive, starting the I/O flow anew. 



8. DESIGN PHILOSOPHY FOR THE EXOS DRIVER 

The EXOS front-end Ethernet Controller board is modelled as a 
controller of a single devive-unit which supports multiple paths of 
communication with the network and the board itself. These paths 
are called channels and are designated by a channel descriptor 
number, called the channel number. The channels grossly correspond 
to a socket ( an end-point in the network communication ) or a 
path for obtaining services from the front-end ( e.g. initializing 
and configuring the board , downloading protocol software to the 
board's memory, etc ). 

The user program should create a channel either for administrative 
operations or to obtain services from the network. In either case the 
user should use the channel number, which the driver software returns to 
him in response to an open channel call, for subsequent operations. The 
channel provides the user task a protection mechanism from destructively 
interfering with each others path of communication. For example, a 
socket created by one task cannot be accessed by another task. 

One of the major decisions in the design of the EXOS driver was to 
attach an Auxilliary Control Processor with the driver. A substantial 
amount of drivers work is done by the ACP. In fact, ACP is the central 
routine which does all the work and the driver just acts as an traffic 
controller, routing all the requests from the users to the ACP. The 
reason behind taking this decision are: 

. to overcome the 16 KB of driver space restriction: As the 
driver accesses the 8 KB of the I/O page and 20 KB of the 
system executive space ( executive routines and data ), it 
has only 16 KB left to itself. 

. to minimise processing time at the interrupt level at the 
drivers interrupt entry point by waking up the ACP from 
this point and letting it do the work at task level. 

. to exploit the task feature of the ACP, which makes it 
overlayable and also let it compete for other system 
resources equitaibly with other tasks in the system. It 
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allows ACP to get services fron other devices as well (via 
QIO'S). 

to have overall design simplicity for easy maintainance and 
also portability to other variations of RSX-11M operating 
systems like RSX-11M-PLUS and Micro RSX. 



IMPLEMENTATION DETAILS 



9.1 General Information 



The driver's role in the EXOS I/O handler package is very 
small and limited only to that of an I/O request traffic 
controller. ACP is the major module in this package which 
does most of the work. The management and processing of the 
EXOS-HOST Message queue ( refer to chapter 4 of EXOS 203 
Manual ) is done by the ACP. This message queue forms a 
part of the ACP's local data area which is physically 
shared ( better say accessed ) by the EXOS front-end. All 
transactions with the EXOS is done via the ACP. Interrupts from 
the board are received by the driver at its interrupt entry 
point. The driver passess on this information to the ACP by just 
waking it up. 

I/O requests received by the driver are queued to the ACP by 
the driver after a minimal processing. The driver address 
checks the user buffers ( if specified ) and relocates their 
virtual addresses in terms of kernel APR 6. It also rearranges 
the function dependent parameters in the I/O packet and then 
queues the packet to the ACP requesting for work. 

9.2 Driver Data Structures: 

A Device Control block (DCB), an Unit Control Block (UCB) 
and a Status Control Block were defined for the EXOS device 
driver. The logical name for the EXOS device was given f ZE' 
and is defined in the DCB. Most of the functions are defined 
as Control functions so that the driver receives the request 
first and then queues the same request to the ACP after some 
processing. The 10. ATT & I0.DET are made No-op functions. 

The UC.QUE bit is set in the U.CTL byte of the UCB. This tells 
the QIO executive routine to call the Driver at its initiator 
entry point and pass the I/O packet without queueing it in the 
driver's I/O queue. Also the UC.KIL bit is set so that the 
driver is called on a cancel I/O request, even if the unit is 
not busy. 



9.3 ACP Data Structure 
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There is a special data structure in the ACP, called Channel 
Descriptor, which keeps all channel related information. The 
structure of the Channel descriptor is 

struct channel { /* channel control block */ 
Uchar ch_type; /* type of the Channel */ 
Uchar ch_flag; /* protection flags */ 

Ushort ch_tcb; /* owner task's TCB address */ 
Ushort rundn_cnt; /* I/O rundown count on this channel */ 
union { 

Ushort ch_soid; /* socket id returned by EXOS */ 
struct { /* EXOS memory pointer */ 

Ushort base; 
Ushort off; 
} 
} 
} ch_des[ MAXCHANNEL ]; 

This control block keeps sufficient information for channel 
managements. 

The Message Queue forms a major data structure of the ACP 
task. The format and fields of the Message Queue are defined 
in the EXOS 203 Manual . 



9.4 QIO Processing 



Once the Executive receives a QIO request, it does a first 
level of validity check as described in section 6.2. It then 
creates an I/O packet and fills up the appropriate fields from 
the Directive Parameter Block specified by the user. Since all 
the I/O functions are control functions and the UC.QUE bit is 
set, the executive calls the driver at its initiator entry point 
and passes the address of I/O packet to it. This prevents user 
context switching so that the driver can execute and relocate 
the user specified buffers while the user context is intact. 



9.5 Driver Processing 

The Driver, upon receiving an I/O packet, does some processing, 
It first address checks the user buffer and then relocates 
the buffer in terms of kernel APR 6. It places the relocated 
address in the I/O packet itself by slightly rearranging the 
parameters. After this it simply queues the packet to the ACP. 
Queueing of I/O packet is not priority oriented but in first- 
in-first-out order. So the ACP receives the request in the 
same order as they have been issued by the user. 



9.6 Interrupt Processing 
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The processing time at the interrupt level is minimised by- 
letting the ACP do the work. Whenever the driver is entered 
at its interrupt entry point it immediately goes to the fork 
level and then unstops the ACP and returns. No processing 
of the EXOS Reply Message Queue is done by the driver. The 
ACP systematically processes the Reply Message Queue whenever 
it is unstopped. 



9.7 ACP Processing 

The ACP iterates an eternal loop. Wnen there is no work 
pending for the ACP it stops itself and goes to sleep. 
It is woken up by the driver either from the initiator 
routine, interrrupt service routine or cancel I/O routine. 
It first dequeues a packet from its external queue and if it 
is successful it calls the routines that process the request by 
filling up the appropriate fields in the appropriate message 
area and then passing the control of the message queue to the 
EXOS. The EXOS, to give a reply to a request, willl interrupt 
the host and the ACP get control as it is unstopped by the 
driver and calls the routines that process the replies. The 
actions taken in the request and reply processing are dependent 
on the function codes in the I/O packet (for requests) and the 
request codes of the message area (for the replies). 

The detailed descriptions of the ACP processing is given in the 
additional design/maintainance document for the ACP/driver. 
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DESIGN/MAINTAINANCE DOCUMENTATION FOR THE 
EXOS DRIVER/ACP FOR THE 
RSX-11M/RSX-11M-PLUS 
O.S. 

by 

Asim K. Mehta 

1. INTRODUCTION: 

The preliminary design overview of the driver /ACP is given in the 
DESIGN OVERVIEW OF THE EXOS DRIVEV/ACP document by Dipu Bose. That document 
describes the basic I/O philosophy of the RSX-11M systems, I/O related data 
structures, I/O related system protocols to be followed by the device drivers, 
etc, and the reasons for the important decesions like having the ACP as a 
separate entity which does all the I/O related operations and that the driver is 
just a traffic controller for the I/O requests for the EXOS board, etc. 

This document will describe the implementation and minor design issues 
related to the ACP only. A separate document describes the changes made to the 
RSX-11M driver/ACP to make it work on the RSX-11M-PLUS system. Another document 
describes the design issues for the driver on the UNIBUS machine. 

2. THE MAIN ACP FLOW: 

The file acproot.c contains the main ACP routine "_main()". First the 
local initialization of some data structures is done in the routine "initO". 
Then the TCB address of the ACP is stored in the ZE UCB in the C - callable 
macro routine "acpucbO". For the UNIBUS machine this routine also fetches 
the physical 22-bit address of the start of the local pool into a local data 
structure. Then unibus initialization is done for the UNIBUS machines, (refer to 
the unibus doc for more info on this). After these initialization routines, the 
main loop of the acp code starts. First a packet is dequeued from the acp's 
external queue and if no packet is available or if no work is pending then the 
ACP goes off to sleep (all this is done in the C - callable macro routine 

dqpktO ). On waking up the ACP first looks for a packet and if none is 
available it sees if any work is pending. If so then it returns and does the 
required processing of the pending work or the processing of the packet, if one 
was dequeued. 

Unless the main do-while loop gets a configuration request for the board 
and the board gets successfully initialized, the routine "driveO" is not 
entered. When the board gets ready, this routine is entered and it goes into 
an eternal loop constantly looking for work. If none is found then it stops 
(sleeps). On getting work it first checks if the request is for board 
initialization or not. If so then it serves that request and if not then it puts 
the I/O packet into an internal queue which is serviced later on in the routine 

requestO". Then it enters the routine "answerO" where it first checks if 
any replies have come from the board or not and if so then it serves those 
replies in the routine "replyO". After the reply processing is over it goes 
and serves the requests if there are any free slots available in the message 
queue through which the ACP will communicate with the board. The routine 
"requestO" is called where the I/O packets are served until they get exhausted 
or they can no-longer be served due to lack of some resources. In this case 
they are again put in the internal queue so that in the next iteration of the 
eternal loop it might get a chance to be served if that resource has been freed. 
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3. THE REQUEST PROCESSING: 



The requests are of two major kinds. One is the kind which does not 
require any participation from the board in honouring the request and the other 
kind is which requires it. The former are serviced immediately by the main 
ACP routines - "_main()" and "driveO". The latter kinds of requests are put 
into an internal queue which is serviced by the routine "request ()" whenever a 
slot in the message area is available for communicating with the board. 

Inside the routine "request ()", first, the I/O packet is dequeued from 
the internal queue. Then the control is passed to the appropriate routine, 
according to the function code. The types of requests here are the kinds which 
just require the board's local statistics and perform operations local to the 
board and are not involved with the network ("adminO"), the kinds which require 
the access opearations for the socket ("accessO"), the kinds that indulge in 
data transfer operations to the network ("transfer( )") , and the kinds involved 
in the socket control operations ("excontroK )") . 

The kinds of requests that are served directly by the main ACP routines 
are the ones that involve opening/closing of sockets ("openchO" & "closechO") 
board setup and initialization procedures ("exsetupO"), the seek operation on ' 
the board s memory, retrieval of the configuration message, unselect request 
K tmpenU ) and preparing the urgent requests. 

The requests that require the participation of the board are first 
transfered to the board via the message queue and the I/O packet address is put 
in a pending I/O list which is to be processed by the reply processing. The 
requests not requiring the participation of the board are finished immediately 
after they are serviced, by calling the routine "ackuserO" which calls $IOFIN 

For the requests put in the pending list, the I/O rundown count for that 
channel is incremented showing it as busy. 

4. THE REPLY PROCESSING: 

The routine "answerO" is called whenever the acp is woken up. Here the 
message area (rmsg_area) is scanned to see if any slot has a reply for the host 
trom the board. If it does then it retrieves the I/O packet address from the 
nm_userid field of the message area and calls the routine "replyO" which does 
the actual replying for the board to the user, according to the kind of function 
code, of cource. 

The reply routine just fills in the return status nm reply into the 
I/O status block and then finishes the I/O by calling the routine "ackuserO" 
This C - callable macro routine calls $I0FIN fot the purpose. The I/O rundown* 
count for this channel is decremented indicating an I/O was complete. This is 
done for almost all the kinds of requests (unless otherwise dictated by the 
request! - as in the case of the reply for the select request in which if the 
socket is not yet ready the packet is put back into the pending list and it is 
considered that the I/O has not yet finished since one more reply is expected 
from the board to indicate that the socket is ready for read/write and it is 
then that the I/O is considered finished and the I/O rundown count is 
decremented). 

5. DESCRIPTION OF THE DIFFERENT MECHANISMS: 
5.1 OPENING/CLOSING OF A CHANNEL: 

These operations are essential for the user to request if any kind of 
communication with the board (involving the network or not) is desired. There 
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exists an array of 40 channel descriptors which means 40 concurrent channels or 
paths for communicating with the board can be opened simultaneously. These 
descriptors are similar to file descriptors and contain information like the 
type of the channel: {can be administrative or can correspond to a socket for 
communicating with the network or can be free - not assigned}; they contain 
flags indicating the status of the channel at run-time: {opened in read/write 
mode, whether privileged or not, whether marked for close or not}; They contain 
the owner of this channel: {the TCB address of the issuing task - used as the 
ownership ID of the user}; the rundown count: {contains the number of concurrent 
I/O's active on the channel (mechanism described later)}; and it contains the 
socket ID: {returned by the board if opened for networking operations or it 
may contain the memory locator of the EXOS memory if the channel is opened 
for administrative operations}. 

These operations are immediate ones. They are serviced immediatly 
in the main ACP loops and the result is returned to the user. 

5.1.1 OPENING A CHANNEL: 

The routine "openchO" in file opench.c is called for the purpose of 
opening a channel. The channel which is marked CH_FREE is searched sequentially 
and the channel number (ch_no) of the first available free channel is returned 
to the user. The privilege of the user is checked in the routine "getpriv( )" by 
checking the task and the terminal privilege of the user. If both are privileged 
then the flag CH_PRIV is set in the ch_flag field of the ch_des[ch_no] . If the 
channel is requested to be opened in the write mode, the flag CH WRITE is set. 

5.1.2 CLOSING A CHANNEL: 

The routine "closech( )" in the file opench.c is called for the purpose. 
First it is checked if the channel number specified is in range (<=40) and if 
the ID (TCB address) is correct. If so then it checks whether the rundown count 
is not zero. If it isn't zero that means some I/O is already pending on the 
channel and hence the channel cannot be really closed. This is so because if, 
for example, a read is pending and the socket is closed and the user task exits, 
then if some other task is shceduled to reside in the same memory area as the 
task which had the read pending, then the DMA from the board may still be on and 
that may curropt the new task in the memory and cause problems. Hence, 
the task is blocked until the reply for that read comes. That's the main reason 
for having this rundown count mechanism. If some I/O is pending then it is 
marked for close - CH_MCL0SE and the I/O packet for the close request is put in 
another queue called the mrkcls (marked for close) queue. This means no further 
requests will be entertained on this channel and as soon as the replies for the 
pending requests arrive the channel is closed whenever the rundown count becomes 
zero. While the channel is in the process of being closed, all the fields are 
reset, the channel is marked CH_FREE. If there are any replies pending on this 
channel number that are requests to the board for closing the socket, then these 
are no longer useful as the socket has already been closed and all the I/O is 
finished on this channel. This packet is dequeued from the mrkcls queue and that 
I/O is finished by calling "ackuser( )" routine. There may be more than one 
request for closing the channel (in some cases where two SOCLOSEs are issued for 
the same channel!) and so all are finished. 

5.2 I/O RUNDOWN: 

The file cancel. c contains the routine "io_rundown( )" which finishes 
all the pending and outstanding l/0's when the board has to be re-initialized. 
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All the open channels excepting the one opened for re-initialization are closed. 
The internal queue contains the requests for all the outstanding l/O's, the 
pending l/O's are in the io_pend queue and the marked for close packets are in 
the mrkcls queue. These queues are emptied off by finishing all the l/O's in 
them by calling the routine "ackuserO" for all the l/O's except the IOJCIL and 
I0_TEL packets which are not the regular I/O packets buts are the ones allocated 
in the ZE and the ZT drivers respectively for the purpose of IOJCIL and TELNET. 
These packets are deallocated back to the system pool by calling the C - 
callable macro routine M dealoc_b( )". 

NOTE: Now that the pseudo function code TS_HNG has been added for the purpose 
of hanging up a telnet connection when a bye is given, a hangup packet 
might be caught up in the internal queue when the request for re- 
initialization comes. Hence this packet must also be deallocated back 
into the system pool, (this is not being done now) 

Also, if the local pool is allocated by the requests (in the case of 
UNIBUS machines), then it is deallocated. 

5.3 IOKILL MECHANISM: 

This is the mechanism to finish all the l/O's of a particular task 
either when it is aborted or when it itself issues a QIO IO.KIL to finish off 
all the l/O's before exiting. After this the control comes to the cancel entry 
point of the ZE driver. Here a dummy IOJCIL packet is allocated from the system 
pool and sent to the ACP via a $EXRQP. 

Here, in the ACP, when the IOJCIL request is received, the control comes 
to the routine "iokillO". It first checks if any channel is open for that task 
(done in routine "srchnO"). If so then it issues an SOCLOSE request to the 
board, increments the rundown count and returns. When the reply for this SOCLOSE 
arrives, the IOJCIL packet is put into the internal queue so that again this 
routine is called in the next request cycle and any other open socket for this 
task is also closed in a simialr way. The rundown count is decremented and the 
channel is closed (if the rundown count is zero). When control again comes to 
this routine and if no open channel is found, then all the packets belonging to 
this task are finished off in the routine "remqueO" and the current 10 KIL 
packet is deallocated. ~~ 

5.4 SELECT AND UNSELECT PROCESSING: 

Select is a mechanism for the user tasks to know whether a socket is 
ready for read or write so that he can issue a read or a write which would be 
sure to succeed and take lesser time. The board immediately gives a reply and 
indicates in the reply field whether the socket is ready or not. If it is not 
ready then the I/O request packet is put into the pending list and the rundown 
count is not decremented (described above). If it is ready then the user is 
informed of this by calling "ackuserO". If the socket is not ready then the 
board is expected to give a reply some time later indicating a selected socket. 
This reply is supposed to be unsolicited and the request code is not SOSELECT 
but SOSELWAKEUP. The user may not want to wait for that long. Or even if he 
waits the I/O rundown count remains non-zero and the task cannot be aborted. In 
that case the user can issue a QIO I0_ACS ! SAJJSL (UNSELECT) request which 
informs the ACP to finish off the pending select request regardless of the 
socket being ready or not. 

This request (SOSELECT) is unlike other requests in the sense that all 
the other requests use the nm_userid field for filling the io pkt address to 
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recognize the owner of that request but this request uses the nm_proc field 
of the structure Sock_select so this has to be handled differently by the reply 
routines. The nm proc field's MSB has to be a zero for correct operation. This 
means that the l70 packet address higher than 0x8000 will cause all sorts of 
problems in the board code. Since the I/O packet address is always on an even 
boundary, it is shifted one bit to the right and then stored in the nm proc 
field. After it is retrieved from the reply message, it is again shifted one bit 
to the left and then compared to the actual address in the pending list. This 
causes the MSB to remain reset. The mechanism used for the purpose of 
fulfilling the protocol of select and unselect is as follows: 

When the request for select is made the field i_prm5 of the io pkt 
is used as a status word which is initially set to NOREPLY which indicates that 
no reply has yet come. When the first reply comes it is set to -NOREPLY which 
indicates a reply has indeed come. This is done because if the first reply has 
not yet come and if a request for unselect comes then the routine "fin pen()" 
is called with the parameter SA_USL and in this routine this bit is tested for 
the first reply and if it hasn't yet come then the status word is set as 
UNSELECT(ed) and nothing else is done. Now when the first reply comes it is 
tested for UNSELECT and if it is true then a normal reply is given back to the 
user and the packet is not put in the pending list as would be done after the 
first reply. This would unselect the select request. Now, if the first reply has 
come when "fin_pen()" is called, then that packet is finished off by the 
"ackuserO" routine and also the AST field of the I/O packet is reset so that 
control does not come to the ast service routine for the select request in the 
user Task, after a request has been given for unselecting the socket. 

5.5 OUT OF BAND PROCESSING: 

The out of band mechanism is one in which a user can either send 
out-of-band packets to the remote systems or receive them from the remote 
systems. The sending of out-of-band packets is a very straight forward mechanism 
but receiving the packets can become a pain if none is received and the user 
wants to exit from his task. An I/O will remain pending and the task will 
remain marked for abort and will hang. When a socket is closed, and if an out-of 
-band request is pending, which will be a very common case because while the 
out of band request is pending and if the user task exits or if he aborts the 
task, then the control comes to the "iokillQ" routine which issues an SOCLOSE 
to the board for that socket. This will still not force a reply for the OOB 
request because there are no OOB packets available. Hence, when the reply for 
the SOCLOSE comes the routine "fin_penO", with the parameter as SAROO i.e. 
remove out of band request, is called. This routine removes the OOB packet 
from the pending list and finishes the I/O on it by calling "ackuserO" and it 
also decrements the rundown count. This will cause the channel to close which 
in turn will cause the task to abort peacefully. 

5.6 SETUP PROCESS: 

The routine "exsetupO" is called when the request is made to the 
ACP for initializing/configuring the board - IO_EXC | EX_INI . This routine is 
called with a parameter called the setup mode. If it is 0x80 then infinite 
timeout is specified for debugging purposes with the ON-BOARD debugger. 

In the setup process, the important data structure is the configuration 
message which contains information like the interrupt vectot address, the start 
of the message area, the types of longwords used by the host (byte swapped or 
not), status bytes, the reply status bytes, etc. The start physical address of 
this configuration message is passed to the board software by writing it byte by 



Nov 9 17:40 1985 acp.design.doc Page 6 

byte into the PORTB and reading the status from the PORTA. 

First the host message area is setup in a way specified in the EXOS 203 
manual. The offsets in the message area are calculated by finding the 
differences between the physcal addresses (which are calculated by the routine 
"relocO"). The field in the conf iguraiton message for the start of the physical 
address is a longword and is an 18-bit value for the UNIBUS and a 22-bit value 
for the Q-BUS. After preparing the configuration message, the board is reset by 
writing a into PORTA. After a 2 second delay the PORTB is read to find out 
whether the board has been initialized or not. If mode is 0x80 then infinite 
timeout is given for the board to get reset else only 2 sconds are given for 
resetting the board. The value of the PORTB is stored and later initialized to 
the im_dummy2 field of the configuration message. The net load program uses this 
field to indicate whether the loopback test failed or not (that is if the 
Xceiyer cable is in or not). Then the start physical address of the 
configuration message is passed to the board by writing it into the PORTB. This 
address is calculated by the "relocO" routine for the Q-BUS software but this 
22-bit physical address is loaded into the UMR address and the 18-bit address 
is passed as the physical start address of the configuration message, (described 
in detail in the UNIBUS doc) 

After the board is reset and it gets the conf iguraiton message, it 
prepares its local copy of the configuration message and sets up its message 
queues. After this the board is ready to take on any requests from the host and 
the host is prepared to take any unsolicited replies or solicited ones. 

6. RESOURCE USAGE BY THE ACP/DRIVER: 

This section describes some of the important system resource usage by 
the driver and the ACP. 

6.1 MEMORY: 

The driver size for the Q-BUS systems is only about 1KB. But for the 
UNIBUS systems it is the full 8KW as 7KW out of the 8KW are taken up by the 
local pool for intermediate buff erring. The ACP's size is almost 6KW for the 
UNIBUS systems and about 5.5KW for the Q-BUS systems. 

6.2 SYSTEM POOL USAGE: 

The driver uses the system pool only when the control comes to the 
cancel entry point. Here it allocates a packet from the system pool to queue 
to the ACP. It is deallocated in the ACP. 

Depending on the number of requests made to the ACP at one time if the 
network is slow or if the board is slow in responding to the requests then all 
the I/O packets are hung up in the pending list of the ACP and this causes a 
depletion of the system pool, the size of the packet for RSX-11M systems is 
36 bytes and for RSX-11M-PLUS is 40 bytes,. Telnet also uses up a lot of system 
pool as described in it's respective document. 

The driver data base is located in the the system pool. There is only 
one DCB, one UCB and one SCB for the RSX-11M systems and an additional CTB and a 
KRB/SCB combination for the RSX-11M-PLUS systems and together they take up about 
110 bytes for the RSX-11M systems and about 140 bytes for the RSX-11M-PLUS 
systems. 

6.3 EVENT FLAGS: 

The event flag number 8 is used by the dealy routine after it marks the 
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time by spaecifymg the event flag 8 and then waiting for event flag 8 to set. 
If an AST ^routine is added in the ACP (some reason knwn only to the person who 
will add it!!} it must not use this event flag or any other used in the 010 

™;;f, i n tJ ? e AGP# The telnet re <l ue sts also use the efn 1 for QIO's to the 
ZTDRV for input and output interrupts. 



6.4 CPU TIME: 



The driver hardly uses the CPU time since as soon as it gets a request 
after a bit of processing, it queues the request to the ACP and returns back to 
the system. The ACP is in a forever loop and it seems as though it might take up 
a lot of CPU time but most of the time it is stopped and waiting for a request 
to come and it would then wake up. If the traffic is more then the CPU time 
usage will be more. 

6.5 LUN'S: 

The ZEACP task does not use any file system so it really does not need 
to specify more LUN's than are assigned to it by default by the task builder. 
But the routines for telnet require to issue QIO's to the the ZTDRV and they 
assign the LUN 7 dynamically to one of the 8 units whichever is required to 
communicate with. 

7. ENHANCEMENTS AND IMPROVEMENTS: 
7.1 CHANGE IN THE DATA BASE: 

u _ /^ere is one change that is suggested to be made in the data base for 
the ZE driver. The CSR address is to be stored in the KRB of the data base and 
it has to be a valid one because the CON task, while putiing the device 
controller online, probes at this address in the I/O page to see if the device 
is actually present or not. Hence, this field will have to be initialized to a 
global symbol which will be initialized during task build time and its value 
will correspond to the actual CSR on the particulare host system which the end 
user will supply during the build time. 

At present the interrupt address is initialized in a similar way. This 
is only required for the RSX-11M-PLUS systems and not for the RSX-11M but since 
the data base is generic for both, the change will affect bothe distributions(?) 

7.2 ADDING MORE CALLS TO THE DRIVER: 

If, in the future, another QIO call is to be added for the driver, then 
it can be done very simply. It's mask will have to be added into the D.MSK field 
ot the DCB and a case statement is to be added in the request routine's switch 
statement and the serving routine can be called here. If it requires to give an 
immediate reply to the user then the inform bit should be set and so on. All the 
protocols used by other requests should be followed - if the message slot is not 
used then the action bit is not set and in that case the slot is returned 
unused. Similarly the case statement is to be added in the reply routine for the 
reply processing. 
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THE DESIGN/MAINTAINANCE DOCUMENTATION FOR 
THE RSX-11M/RSX-11M-PLUS 
UNI BUS SOFTWARE 

by 

Asim K. Mehta 



Note: Adequate knowledge about the design of the EXOS driver and ACP for the 
RSX-11M/RSX-11M-PLUS (Q-BUS) systems is required to thoroughly 
understand the design of the UNIBUS software for the same Operating 
systems (it is described in the relevant design/maintainance document). 

1. INTRODUCTION: 

The whole driver /ACP software is written in such a way, that, for the 
respective type of the bus, Q-BUS or UNIBUS, the build procedure will 
conditionally compile and task-build the software to suit the type of the 
system. 

The main difference in the Q-BUS and the UNIBUS software is the use of 
the UNIBUS mapping registers for transfering data to/from the board to the host 
memory. This document will describe in detail how these are allocated, how they 
are used in data transfers, etc. 

2. DESIGN DETAILS: 
2.1 UMR REQUIREMENTS: 

With one UMR, a transfer of a maximum of 4KW of data can take place. The 
ACP requires about 1KB of memory for the message area and this piece of memory 
is shared by both the host and the board. Both of them require to utilize this 
space almost simultaneously and hence this area has to be mapped by one UMR all 
the time. This UMR is allocated during initialization time of the ACP and is 
loaded with the 22-bit physical address of the start of the message area. 

For data transfers from user tasks to the board memory and vice-versa, 
ideally, for each request one UMR (per 4KW) would be assigned for the transfer 
and would be loaded with the physical address of the start of the user buffer. 
For a write request this sounds quite O.K. but if a read is requested then it 
may hang forever thus tieing up the system resources (UMR's) and degrading 
system performance because there are only 32 UMR's available for the whole 
system including for the disc I/O and other peripheral I/O. 

To solve this problem, a fixed local pool of about 14KB is allocated in 
the ZE (EXOS) driver virtual space which uses only less than 1KB of virtual 
memory for its code. This is further subdivided into fixed parts of 1KB each 
so that each can be allocated for a request (which will NOT specify more than 
1KB as the buffer size) and then deallocated when the request is over. If all 
the buffers get allocated then the requesting task would be blocked until a 
buffer is freed when the request is made again for a buffer in the pool. 

For this pool area only two UMR's would be required for as long as the 
ACP is running. The contents of the user buffer would first have to be 
transfered to the allocated buffer for a write request and the board is to be 
informed about the 18-bit physical address corresponding to the start of the 
allocated buffer which is the UMR originally allocated plus the buffer no. times 
the size of the buffer. The buffers starting at the address greater then 4KW 
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from the start of the pool are assigned the second UMR's 18-bit address plus 
their no. times their size. The first UMR is loaded with the 22-bit physical 
start address of the pool area and the next UMR is loaded with the start of the 
pool 22-bit physical address plus 4KW. 

Hence, the total consumption of the UMR's is three for almost all of the 
time. 

2.2 VIRTUAL TO PHYSICAL ADDRESS CALCULATION: 

The virtual address is converted into the 22-bit physical address with 
the use of the system routine $RELOC. This routine is called with the virtual 
address as the input in R0 and it returns the relocated address in two 
registers. Rl contains the relocation bias and R2 contains displacement bias in 
the block plus 140000 (PAR6 bias). Actually the relocation bias is the higher 
16-bits of the physical address and the lower 6 bits of the displacement bias 
are the lower 6-bits of the physical address because the relocation bias is to 
be loaded into the PAR6 and the displacement bias contains the the virtaul 
address to be actually addressed. The displacement bias's higher 3 bits are 6 
which select the APR 6 and hence the required physical memory will be addressed. 
But we donot need to address the physical memory but to calculate it and this is 
simply done by manipulating (by shifting and masking) these two registers to get 
the higher 6-bits of the physical address in one word and the lower 16-bits in 
another. The routine "RELOC::" actually does this in the ACP and also the power 
up for RSX-11M and load for RSX-11M-PLUS entry points do the same. 

2.3 LOCAL POOL ALLOCATION: 

The local pool for intermediate bufferring is allocated in the driver 
virtual space beginning exactly after 1KW from the start of the driver code 
area. This is done while the driver is being loaded. The driver is called at its 
power fail entry point while it is being loaded for RSX-11M systems and at the 
loadable driver entry point for the RSX-11M-PLUS systems. Here the driver 
calculates the physical address of the start of the pool area and stores it in 
two words in the UCB - at U.ACP+2 and U.ACP+4 with the lower 16 bits in the 
higher word and the higher 6 bits in the lower word. Now that the start of the 
local pool is in the system pool (UCB), the ACP can easily access it. 

2.4 UMR ASSIGNMENT: 

The three required UMR's are assigned at initialization time of the ACP. 
The routine $ASUMR is called for the purpose and not $STMAP or $STMP1 as these 
calls are for assigning UMR's for the duration of the data transfer and are 
deassigned as soon as the I/O is finished by the Executive and the ACP does not 
keep much of the control of the UMR's. $ASUMR just assigns the UMR's and it is 
the the ACP's responsibility to deassign them (which is done when the ACP is 
aborted for restaring the network or shutting it down by the call to the routine 
$DEUMR). 

The routine "ass_umr()" is called at initialization time by the routine 
"uni^niO" which actually does this assignment and initialization of the UMR's. 
There exists a 6-word Unibus Mapping Register Assignment Block in the SCB of the 
driver data base. The start address to this block and the no. of UMR's to be 
assigned in one of it's fields is passed as the input to $ASUMR. This routine, 
called at system state (done in Macro routine ".AS.UMR: :") , returns the UMR 
address and the 18-bit physical address mapped by this UMR (giving the UMR 
number from the higher 5-bits) in the different fields of the UMR Assignment 
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Block. The no. of UMR's specified will map 4KW of physical memory each, and 
these 4KW of memory mapped by each UMR's will have to be contiguous in the 
physical memory. For this reason, two UMR's are assigned first for the pool area 
and one assigned later for the message area and it's UMR Assignment Block is 
allocated from the system pool. 

2.4 DETAILS OF FORMING THE 18-BIT UNIBUS ADDRESS AND LOADING OF THE UMR'S: 

The UMR Assignment Block contains 6-Words as described in the section 
7.4.2 of the Guide for writing I/O drivers manual for RSX-11M-PLUS. After the 
call to $ASUMR, the field M.UMRA is initialized with the address of the UMR 
(in the I/O page). The field M.UMVL is initialized with the lower 16-bits of 
the 18-bit address mapped by the first assignd UMR. The bits 4 and 5 (counting 
from 0,1,... onwards) of the field M.UMVH are initialized with the two higher 
order bits of the 18-bit unibus addresss. The higher 5-bit s of the 18-bit unibus 
address determine the number of the UMR that will map the physical memory. This 
UMR is to be loaded with the 22-bit physical address of the buffer the 
peripheral device has to communicate with. To access the next contiguous UMR, 
the UMR number is calculated by fetching the high 5-bits of the 18-bit physical 
address and then adding one to this to get the higher order 5-bits of the new 
18-bit unibus address of which the lower order 13 bits are same as the previous 
UMR. 

The Unibus Mapping Registers are actually a set of 32 two word pairs in 
the I/O page starting at the location called UBMPR. The two words hold the 22- 
bit physical address to be mapped by that particular UMR. The address of the 
UMR is in the field M.UMRA in the UMR Assignment Block and the lower order 16- 
bits are loaded into the lower word and the higher order 6-bits in the higher 
order word (This is done by simple move instructions). 

2.5 LOADING THE UMR'S: 

The first UMR is loaded with the start physical address of the pool area 
and the next one with the start address plus 4KW. The third UMR is loaded with 
the start physical address of the message area. All the fields in the 
configuration message related to the message area are just offsets relative to 
this start address. Under normal circumstances these UMR initializations would 
remain permanent .But during the time when the board is being setup, the board 
needs to read the configuration message directly from the host memory. This 
requires a UMR assigned and loaded with the start of the configuration message 
for a short duration of time. This is temporarily done in the routine 
"exsetupO" and the UMR is reloaded with the start of the pool area when the 
board has finished reading the cofiguration message and has initialized the 
board and its message queues. 

2.6 DEASSIGNING THE UMR'S: 

At initialization time (in the routine "uni_ini()") a system call 
SREX$S is made (from the routine "srexO", which specifies the routine "DE.UMR" 
so that control comes to this macro routine whenever the ACP is aborted or it 
exits. This routine calls the system routine $DEUMR to deallocate all the three 
UMR's with the input as the start of the UMR Assignment Blocks and then exits 
the ACP peacefully. 

2.7 LOCAL POOL MANAGEMENT: 

An image of the local pool (struct pool im in file unidata.h) is kept 
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in the ACP which holds information about the allocation of the buffers and the 
owners of the allocated buffers. The pool_im structure is as follows: 

#define POOL_BUFS 14 
struct pool_im { 

Ushort state; 

struct iopkt *owner; 

} pool_im[P00L_BUFS] = {0}; 

The state field indicates whether the particular buffer is allocated or not. The 
owner field contains the address of the I/O packet which corresponds to the I/O 
request from the user task. 

2.7.1 POOL ALLOCATION: 

The pool allocation is done (in routine "getpooK )") by first finding 
a free buffer and in the process also finding the buffer number from the pool 
image. The I/O packet address, which is passed as the first parameter to this 
routine, is stored in the owner field of the pool image. The 18-bit physical 
address is calculated by adding the buffer size times the number of the buffer 
to the start 18-bit physical address of the start of the local pool. This 18-bit 
start address is calculated during the UMR assignment time after the UMRs are 
assigned from the information present in the UMR Assignment Block and stored in 
a global variable (unilbuf) for the pool management routines to use. If the 
buffer number turns out to be greater than 8, then the 18-bit address of the 
next 4KW of the local pool is taken which is stored in another global variable 
(uni2buf). These variables are long words. 

2.7.2 DATA TRANFER TO/FROM USER/POOL ADDRESS SPACE: 

The second parameter to the "getpoolO" routine indicates whether the 
requested buffer is for a read or a write request. If it is for a read request 
then the parameter is and 1 if it is a write request. For a write request, the 
routine copies the contents of the user's buffer into the buffer in the local 
pool allocated for the purpose. For this copying, the Macro routine "acopyO" is 
called which calls the system routine $BLXIO to do the transfer of the data from 
the user's area to the driver's area where the local pool is situated. This 
routine need the relocated addresses of the source and the destination buffers. 
The relocated address for the user's buffer is already present in the I/O packet 
but the relocated address of the pool area is calculated at initialization time 
by the Macro routine "REL.POOL::" and stored in global variables rellbuf and 
rel2buf for the 1st and 2nd 4KW of the local pool respectively. 

2.7.3 POOL DEALLOCATION: 

The routine to free the buffer, when the request is over and the reply 
has arrived, is "f reepooK )". The first parameter is the I/O packet address for 
which the request was made and the second one indicates whether the request was 
for read or write (0 or a 1 resp.). The pool image is searched for an entry 
corresponding to the I/O packet address passed as the 1st parameter and if a 
match is found then that entry's status field is initialized as DEALLOCTED. If 
the request had been for a read then the data from the pool is transfered to the 
user's area by the same routine "acopyO". For a write request nothing is done. 

There are requests that require both read/write kind of interaction with 
the board like the requests for ARP, ROUTE etc. The "getpoolO" and the 
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"freepoolO" routines are both called with the second parameter as 1 so that the 
user's read/write requests are both honoured. 

3. CHANGES IN THE XOSLIB TO PASS ONLY 1KB OF DATA TO THE ACP FOR UNIBUS M/C's: 

The routine which finally does the QIO to the board - "libemtO" - is 
modified for the purpose, A global integer called unibus is initialized to 
at compile time and this indicates a Q-BUS machine. If it is then libemt 
does not check the buffer size and directly passes the buffer and the buffer 
size to the board (ACP). But if it is set to 1, then libemt breaks up the buffer 
into 1KB blocks and issues QIO's in a sequence with each having no more than 1KB 
of data to be transfered. The value of unibus is zapped to 1 for UNIBUS M/C's. 

4. LIMITATIONS: 

4.1 SPEED: 

The main limitation with respect to the Q-BUS driver/ACP is the speed 
of data transfer. Since intermediate buffering is inevitable in the UNIBUS 
design, as described above, the time taken to first transfer the data from user 
buffer to pool area or vice versa is an extra burden and slows down the data 
transfer by about 40%. 

4.2 EXHAUSTION OF POOL SPACE: 

If there are many tasks requesting for the pool space for data transfer 
the pool area might get exhausted and in such a happening the ACP will put the 
requesting task's I/O packet in a secondary queue which is again put into the 
internal queue after all requests are honoured and so again they become eligible 
for requesting the pool and again, if no pool has become free then the process 
is repeated until a buffer gets free and then this request is honoured. During 
all this time the buffers are not free, the task will keep waiting and hence 
will eat up that memory space as it cannot be checkpointed during the time 
the buffered I/O is in process. This is because task checkpointing during the 
buffered I/O is not implemented because the same code is being used for the 
Q-BUS machines which donot indulge in buffered I/O. To implement this the code 
size would increase and would further complicate the already complicated logic 
of the ACP making it difficult to maintain. 

4.3 BUFFER SIZE: 

The buffer size specified by the user should not be greater than 1KB 
and if it is then an error status is returned and the request is not honoured. 
The user is advised to do a series of QIO's to transfer more than 1KB of data 
This might further slow down the process of data transfer. 

4.4 INEFFICIENT USE OF THE POOL AREA: 

The pool is divided into 14 buffers of exactly 1KB size. This means that 
for a data transfer of less than a hundred bytes would use up 1KB of pool space 
and a task requesting more than 1KB would then have to wait. This limitation 
is due to the simpplified approach used in managing the pool and thus keeping 
the size of the ACP to the minimum and the code simple. This problem would arise 
only when the traffic is very high and all the pool space gets exhausted but 
normal circumstances when one FTP client and one FTP server plus a telnet 
client are running there wont be any problem depending on how fast the network 
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is. 

4.5 UNIBUS FOR PDP-11/ 70 

It is not certain that the current software would run properly for the 
PDP-11/70 processor since that processor uses the MASSBUS. Unless this software 
is tested on such a machine nothing can be said about its performance on that 
machine but the best edducated guess is that it shiould work! 

5. ENHANCEMENTS AND IMPROVEMENTS: 

5.1 POOL MANAGEMENT: 

This could be made more complex by making it to allocate any given 
numbers of bytes in a way similar to the "mallocO" and "freeO" routines 
in a high level language run time support. But an upper limit of 2 or 4KW would 
anyway will have to be put because if, for example, the "TTCP lf program does a 
read for 4KW in loopback mode then the other TTCP will have to do a write of 
4KW and hence they would both be hung up for ever. Hence, the complexity is the 
main thing that will increase for better pool management. 

5.2 TASK CHECKPOINTING DURING THE INTERMEDIATE BUFFERRING: 

As described in the limitations this feature is not implemented but it 
can be done by using the routines $TSTBF, $INIBF and $QUEBF as described in the 
Guide to writing I/O drivers for RSX-11M-PLUS, section 1.4.8. This feature would 
definitely improve system performance as the memory would not be tied up by the 
issuing task as it would be checkpointed. This could be done for both read and 
write requests. 



Nov 14 12:50 1985 m.to.mplus Page 1 

RSX TO MPLUS > MAJOR CHANGES 

The following changes were necessary to be made in the EXOS driver 
ZEDRV/RTHACP for the RSX-11M to make it possible to run on the RSX-11M-PLUS 
operating system. 

.-- The RSX-11M-PLUS O.S. has some added features incorporated to support 
different kinds of controllers and the system has taken more control over the 
handling of different types of controllers. There are two major data structures 
added for this purpose - The CTB (controller table) and the KRB (controller 
request block). The CTB defines the type of controller and the KRB describes 
individual controllers and their characteristics. 

In the existing data structures for the RSX-11M driver the only ones 
that have almost remained the same are the DCB (device control block) and the 
UCB (unit control block). The SCB (status control block) has changed. 

/mvr\ u^ ° ther ^^ chan 8 e in the driver code is the Driver Dispatch Table 
(DDTJ. There are some new entry points that have been added which are helpful 
in initializing the driver, getting the controller and units on/off line etc. 

1. THE DETAILED DESCRIPTION OF THE CHANGES: 

1.1. DCB: 

no changes. 

1.2. UCB: 

U.UCBX is an added field. Also initializing the units as offline, 
(they will be made online by the CON task.) 

1.3. SCB/KRB: 

The SCB and the KRB are to be made contiguous which means no more 
than one unit can operate at a time on one controller. Since the EXOS 
controller does not use this strategy of physical units attached to the 
controller, but has the concept of logical units (channels), this 
minimal strategy is maintained. There are some new fields added to the 
SCB concerning error logging, I/O page registers, KRB address, status 
tields etc. The KRB has information about the status of each controller, 
the interrupt vector address (which was first in the SCB), CSR address 
priority, UCB table, I/O count, active unit's UCB address etc. ' 



1.4. CTB: 



This describes the characteristics of the EXOS ethernet controller like 
the name, status, pointer to DCB etc. 



1.5. DDT: 



The driver dispatch table is now just a Macro call which initializes 
the dispatch table. This contains information regarding the various 
entry points to the driver - the four conventional ones; initiator, 
cancel, powerfail and timeout plus the new ones specially for the 



Nov 14 12:50 1985 m.to.mplus Page 2 

RSX-11M-PLUS system - the loadable driver entry point, unload entry 
point (these are called while loading and unloading the driver), the 
controller and unit online/offline entry points (to perform certain 
functions while bringing the controller and units on/off line). 

There has been no change in the logical flow of the driver 
code but the powerfail entry point for the RSX-11M is now the load 
entry point for the RSX-11M-PLUS system. 

1.6. ACP: 

The ACP, being a task, has not suffered many changes. The only place 
where the problem arises is in the file UNIMAC.MAC where the offsets 
refering to the SCB are not altogether symbolic and hence the offsets 
get changed. Some conditional coding has been added here such that both 
the systems would get their respective offsets, 
(the conditional coding for UNIBUS and Q-BUS M/C's would remain as such) 

Most of the code that has been changed has been condionalized at the 
assembly level such that it will also run on the RSX-11M Q-BUS or UNIBUS 
systems. Digital only allows user written device driver names staring with ' Z' 
for RSX-11M systems and the ones starting with 'j' or 'Q' for RSX-11M-PLUS 
systems. But to maintain the simplicity in maintaining the code ,i.e. having one 
piece of code conditionally written such that it will run on all the four types 
of systems - RSX-11M (UNIBUS and Q-BUS) and RSX-11M-PLUS (UNIBUS and Q-BUS), the 
driver on the M-PLUS system was also given the name 'ZE f . This was not according 
to the conventions of DEC but, well, our convenience is first preference! 

2. CHANGES FOR THE UTILITIES AND XOSLIB IN CHANGING FROM RSX-1M TO 
RSX-11M-PLUS: 

The main changes made were in the* files radix. mac, pasword.mac, 
xinitenv.c. These changes were such that these files could also be used for 
the RSX-11M systems. The changes were as follows: 

1. radix. mac: It did not support the blanks in the input ascii name 

and now it does. 

2. pasword.mac: There were some potential bugs in the RSX-11M version 

which came to light in the M+ software and were fixed. 
The account file was not being closed by the login task 
because it was first exiting after validating the account. 
But when the strategy to keep the login task running all 
the time, letting it dequeue packets for validating the 
account, was made, the login task never closed the 
account file and no other user could login. Earlier, when 
it was exiting, the file was being closed. 

3. xinitenv.c: The task name of the login and master tasks in the M+ 

are different from that in the M software. To take care 
of these differences the executive call get task info 
is called and it is checked which system this task is 
running on and then the correct task name is issued in the 
send data requests. 
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DESIGN/MAINTAINANCE DOCUMENTATION FOR THE TELNET SERVER 
ON RSX-11M/RSX-11M-PLUS 



by 
Asim K. Mehta 



1. INTRODUCTION: 



•i !u S ? elnet server comprises of Three distinct parts: 

ii) Th! f- AR ° ^^f SerVGr (whiGh is Unloaded onto the board), 
ii) The routines in the ACP which handle the Telnet Server requests and 
in) The Pseudo Terminal Driver which actually serves the remote terminals. 

The first part, the ON-BOARD Telnet Server is not host dependent and 

InitL third "^L^oth^V 1116 "^ ^^ ^ the int « rf '" betSSE'Se Hrst 
and the third. These other two parts reside on the host and need a thorough 

investigation as to how the design was done and how to maintain them § 



2. OVERVIEW: 



Telnet S^^HosrinSrf^" Z**t rdin * telnet is Scribed in the "ON-BOARD 
lemec server 10 dost Interface" by George Powers. 

miT m »J^L ACP recei T es . the re 1 u ests from the remote terminal via the EXOS-to- 
fn Lnf 8 qUSUe and Sives back replies to the remote terminal via the HOST- 
to-EXOS message queue (The method of the ACP receiving messages and giving back 
messages from/to the board is described in the relevant design document On 
receipt of any request/reply for telnet, the ACP dispatches it to the relevant 
routine which does the job of interfacing with the Pseudo Terminal Driv^r/EX.S 

*. -v. . T ^ interface with th <= Pseudo Terminal Driver (called ZTDRV) is similar 
to that of a normal modem multiplexer used with the TTDRV (like the DuVll-E 
asynchronous line interface with full modem control). Except for the concept of 

CSR?s n in r^ g e - Se - i9 alm ° 8t simil "ly modelled. Of course, there are^o 
CSR s in our case as it is modelled as a pseudo multiplexer and the input and 
output interrupts are simulated from the ACP by QIO calls to ZTDRv! 

3. DESIGN DETAILS OF THE BOARD TO HOST (AND VICE-VERSA) INTERFACE FOR TELNET: 

Tplnof ™ e H0St and Board communicate via the message queue mechanism and the 
Telnet Server requests are distinguished from other requests by the nm request 

TSCoLaND tlrT^t 8tructu ™ CaUed Telnet_srvr which is initialized"-^ 
TSCOMMAND for telnet requests/replies. As soon as the "request()/replv( )" 
routines recognise the request to be that for telnet, they pass control to f h» 
routines which handle telnet requests/replies. control to the 

ACP .„* IL^ r^" 6 "' \" ^T thS b0ard then £t is an ^solicited reply for the 
ACP and the routine "replyO" recognises it as one for telnet and calls the 
routine "dispatchO " (in file RTH.C) which dispatches to the correct routine 
depending on the telnet command specified in the nm tsrqst field. The followina 
ae^ibed^elow: 6 ^"^ ^ ^ ^ «" ^ -FP^rUt. action'^takTas 
(the routines to which the dispatcher dispatches are all in the file RTH.C) 
3.1 TSCARON/RLCARON: 

whose pty h no 'JTE^r?.?!!" h °" ^^ """" ia ™ f ° r a remote te ™ inal 
wnose pty no. is in the field nm_sioid. The dispatcher calls the routine 
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1'!;^ ^V*^ V ? abl i shes the carri « ON and enables the unit (OS.CRW clear- 
and US.DSB clear) in the ZTDRV database. It also sends a CNTRL'C' to the ZTDRV 
as an unsolicited input so that an MCR> prompt is sent to the remote to in£w. 
a successfully established connection. indicate 

3.2 TSCAROFF: 

This is sent to the host when the remote terminal wants to break the 
connection. The routine »bye()» is called for the purpose. ?t gives a CNTRL'C ■ 
followed by a 'BYE\r' to the ZTDRV as an unsolicited input which loss of f th^ 
user from the system. The *c is given because, for example, just n^case text 
of a 1 l go: t 1 rea P u:ft e "c the i1 the / i r " BYEV " wiU be «?««•■ new text t? s ead 
^usSon-norx foVEDT/though.r" 33 ^ ^ baCkgr ° Und "* then l0g ° Ut 

3.3 TSREAD: 

The remote terminal sends unsolicited input to the ZTDRV via the rp*H 

begins 8 ^reaV^a"^ tSdata[] Held ' 0f the Telenet -— -t™t«. lit « y 
be just be read data for a process running on the remote terminal and not 

("di iatchH-rH-V 116 r ° Utine " Zt - read <>" *■ cll-d by the dispatcher 

whi h'i ac eptld'bv the™ 6 ^ '° the . Z ™ V by * 3 ^ U <^ W #I0 « INP "11 
?*£ I.!" accepted by the ZTDRV as an input interrupt and the data is input into 
the driver and processed normally (described later in this doc as to how)' 

3.4 TSNVTFUNCT: 

which J^TelT.eTlTol: f ° r the St3ndard NetW ° rk VirtMl Te ™^ ^-tions 
(They are serviced by the routine "nvtfunctO" called by the dispatcher.) 

i) AO - abort O/P - ~0 is sent to ZTDRV as an unsolicited input. 
ii) AYT - are you there? - ignored as the board takes care, 
ill) EC - erase character - BS is sent as an unsolicited input, 
iv) EL - erase line - *u is sent as an unsolicited input, 
v) IP - interrupt process - a *C is sent as an unsolicited input. 

3.5 TSD00PT: 

The board sends certain telnet options which the client requests and i-hp 

''Zollill^Ts ?J ul /i l thes v ptions as far as possile - Th * '-t"e the 

do optionO is called to set the options. The following are the possible 
options that would be asked to be set by the telnet client: P osslbLe 

i) TEL0PT_BINARY - a QIOW #SF.SMG is sent to the ZTDRV to set this 

... option with the bit TC.BIN set. 

ii J TEL0PT_ECH0 - same as TELOPT_BINARY but here the bit is TS NEC 

iii) TELOPT qrA that 1S Cleared t0 set the echo option, 
m; lfc.LUPT_SGA - suppress go ahead - no action is taken. 

3.6 TSDONTOPT: 

, hp „ ™ e function U dont_option()» is called which calls "do optionO" with 
setting them!" 1116 '" "^ indicatin S U to reset the options'instead of 
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3.7 TSWRITE (h2x): 



When the System has to send some data to the remote terminal, then the 
ZTDRV sends the write data in an I/O packet queued to the ACP via $EXRQF system 
call. The function code is a pseudo fn code IO_TEL with which the ACP (routine 
request!) ^recognises the request as one for telnet to be sent to the board. 
The routine "telnet ()" is called which prepares the message queue (Telnet srvr) 
(by calling wr_to_exos( )") from the information present in the packet, and thus 
the write data is sent to the remote terminal. Then this packet is deallocated 
back to the system pool (as it was allocated in ZTDRV from the system pool and 
this is not a regular I/O packet but one to serve our purpose of sending data 
to the board). 

3.8 TSWRITE (x2h): 

This is a reply from the ON-BOARD telnet server to the last TSWRITE 
(h2x) request and this is considered as an output interrupt to the ZTDRV to 
signal the completion of an output to the board. The output interrupt is given 
J s , a Q 10 #10. OUT i n t he routine "write_reply()" dispatched to by the routine 

dispatchO . This is a simulated output interrupt and the ZTDRV takes this as a 
normal QIO request but the controller dependent routine considers it as an 0/P 
interrupt. 

3.9 TSHANGUP (h2x): 

This is a request which the host has to make to the ON-BOARD telnet 
server when a remote terminal logs out of the system. When the user types in 

bye or 'logout 1 as an unsolicited input, the BYE task is invoked which first 
logs off the user and then calls the ZTDRV with a QIOW #I0.HNG which gives 
control to the time out entry point of the controller dependent routines and 
here a packet with a pseudo fn code TS.HNG is created and queued to the ACP 
via the $EXRQF system call. The ACP, after getting this packet, gives control 
to the routine hangupO". This routine prepares the message area (Telnet srvr) 
and sends the TSHANGUP request to the ON-BOARD telnet server which severs~the 
connection fot that pseudo tty. 

4. ZTDRV - THE TELNET DRIVER: 

The ZTDRV is a pseudo terminal driver for the remote terminals and 
actually does the character processing. Most of the ZTDRV code stems from the 
standard TTDRV code for the RSX-11M/RSX-11M-PLUS systems. The module which 
actually does the interfacing with the standard terminal driver code is the 
controller dependent routine for the new pseudo controller added into the 
existing terminal driver. This pseudo controller is called the DT-11 and the 
controller dependent routine is called ZTYT. The reasons for the pseudo 
controller not being added to the existing terminal driver are described in the 
next section. The code for this pseudo controller dependent routine and the 
rest of the TTDRV code plus the changes in it to suit the new pseudo controller 
is named ZTDRV - the new pseudo terminal driver for telnet. 

4.1 DECESION FOR KEEPING ZTDRV AS A SEPARATE TERMINAL DRIVER: 

This decesion was taken for the following reasons: 

1. It would be a lot easier to debug a separate driver rather than the 
TTDRV which would be already resident and to make some change in the 
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driver, Sysgen would have to be performed all over again to rebuild 
it. 

2. To add another controller to the existing TTDRV would mean that the 
source files of the standard TT driver would have to be modified and 
this would mean a re-Sysgen to incorporate the new TT driver with 
the pseudo controller. The main aim of the present EXOS software is 
to try to incorporate networking on existing systems and it would be 
ridiculous to ask the customer to do a SYSGEN to incorporate the 
pseudo terminal driver. 

3. There are certain terminal characteristics which are necessary for 
the pseudo controller like modem support which might not be supported 
on the user system. To add that support a re-Sysgen is necessary. 

The main drawback of this decesion is the utilization of a lot of 
resident memory space - 8KW - as the ZT driver is always resident in the memory 
while it is loaded and its data base is always resident while it is unloaded. 
And it also utilizes a lot of space from the system pool as will be discussed in 
the section for System resource consumption. 

4.2 CONTROLLER HANDLING IN A TERMINAL DRIVER: 

The TTDRV handles different kinds of controllers especially made by DEC 
(e.g. DL,DJ,DZ,DH,DM,etc.) and each is of a different kind and has to be handled 
separately by the driver. Most of the code for the TTDRV is common to all the 
controllers. But, for their specific functions there are controller dependent 
routines which are called upon to do the required specific functions. 
A typical flow of a normal controller action would be as follows: 

4.2.1 A TYPICAL CONTROLLER ROUTINE FLOW: 

When a character is typed from the terminal, an interrupt is raised 
which brings control to the input interrupt entry point of the controller dep. 
routine. This causes the routine to pass the character to the input character 
processing routine common to all the controllers and then if echoing is required 
then it is output via the output interrupt routine - the character is first put 
in the proper XBUF and the output interrupt is enabled. The controller raises 
the output interrupt which means the character has been successfully output and 
the control comes to the output interrupt routine. If there are more characters 
to be output then the same procedure is followed. When a task has to output any 
buffer onto the terminal, then it calls this output interrupt routine and the 
same procedure takes place. 

When the TT driver wants to stop the output say, when a A S arrives, then 
the controller dependent routine is called at its stop output entry point. Here 
the output interrupts are disabled by setting the appropriate bit in the CSR. 
Similarly there are other entry points for other purposes like the resume 0/P 
entry point, the modem timeout entry point, the power-up entry point, etc which 
are called when the appropriate action is required. 

4.2.2 DATA BASE RELEVANT TO THE CONTROLLER DEPENDENT ROUTINES: 

For the RSX-11M systems the following data structures are relevant for 
for the controller dependent routines: 

1. The controller type. It is a number given to different controller 
types by DEC and the different controller types are accessed by this 
number . 
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2. The controller index. For a particular type of a controller, there 
may be more than one controllers existing simultaneosly. These are 
given numbers called the controller index. 

3. The controller table CTBL. This is a dispatch table containing the 
addresses of controller dependent routines which are to be called 
whenever required by the driver. Each routine has its particular 
number and this allows proper dispatch for any controller. 

4. The UCB table. This is a table of UCB and the CSR addresses for a 
particular type of a controller by which, when it is interrupted, 
it can get the UCB and the CSR address of the correct unit by 
indexing^the table with the controller index which is passed in the 
?b word {.bits 0-3) when an interrupt arrives. 

5. The UCB and the SCB are also extensively used by these routines. 

For the RSX-11M-PLUS systems the following data structures are relevant 
not used here* ° neS dlSCUSSed ab ° ve for the Ksx ' n ^ except the UCB table which is 

1. The Controller table CTB. This is a data structure in the pool area 
and has information like the controller name, addresses of contoller 
request blocks, some status information, link to the next controller 
table, etc. Each controller type is defined by such a block. 

2. The Controller request block KRB. This contains all the information 
like the CSR address the controller type, the vector address etc. 
Every controller has to have one such block by which its run-time 
status, its controller index, etc. can be determined. 

3. The SCB and the KRB may be contiguous for controllers having only one 
unit and allowing full duplex operation. 

# Please see the guide to writing I/O drivers for RSX-11M-PLUS for further 
information on these data structures. 

4.3 THE PSEUDO CONTROLLER FOR TELNET: 

4.3.1 OVERVIEW: 

# To interface the telnet protocol to the system, there was a need to 
communicate between the terminal driver and the ACP, since it was the ACP that 
got all the telnet protocols from the board. The best way was to model a pseudo 
controller m the ZTDRV which would do this job. Hence, the main function of 
this module would be to somehow take in characters received from the remote 
terminal and input them to the input character processing routines of the 
terminal driver and to somehow get to output characters to the ACP which could 
transfer them to the board and finally to the remote terminal. 

4.3.2 NAMING CONVENTIONS AND GENERAL DESCRIPTION: 

ii a Jilt 3 ^ ntroller is calle d DT-11 and the module which handles this is 
called ZTYT. The controller number given to this pseudo controller is not fixed 
but is so coded that at assembly time it would get the last controller number 
afterthe ones defined by DEC. This is done to take into account the fact that 
DEC might upgrade the TTDRV by increasing the number of controllers supported 
by the terminal driver and that would conflict with our design. All the 
controller dependent routines start with the letter 'Y' and so our controller 
dependent routines are called 'YT...' as our controller name is D'T'-ll. An 
assembly time label called D$$T11 has to be defined to inform the ZTDRV software 
of the existance of such a controller and its value indicates the number of 
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units of these controllers existing (8, in our case, at present). 

The controller dependent routines for this controller are added to the 
controller table CTBL and hence they would be called whenever there is a request 
tor this controller. The controller type is stored in the UCB for RSX-11M 
(U.CTYP) systems and in the KRB for RSX-llM-PLUS systems (K.PRM). It is from 
here that the driver accesses the controller type and then dispatches to the 
required routine. 

4.3.3 THE RELEVANT DATABASES: 

*nn * Itl^t the data strucures required by the System viz. DCB, UCB and the 
SCB tor RSX-11M and on top of these the CTB and KRB for RSX-llM-PLUS there are 
a lew used by the controller dependent routines for the pseudo controller DT-11. 
These are added separately and are described below: 

UCBADD — > local storage for UCB address for use by the conroller dep. 

routines for the pseudo controller. 
LOCBUF — > stores upto 32 input characters temporarily. 
COUNT — > byte count for the I/P characters. 
ADLBUF -- -> address of pointer to I/P characters. 

Also added are the input and output interrupt entry points for the 
controller which correspond to the I/O function codes added - IO.INP and 10. OUT 
in the dispatch table for the entry points for different function codes - QPDSP 
These are called QPINP and QPOUT. The initiator entry point for the ZTDRV 
dispatches to the required routines according to the function codes specified 
and hence for IO.INP and 10. OUT the contol comes to QPINP and QPOUT. These 
function codes are also added in the DCB for the pre-driver processor to 
recognise these I/O codes. 

The UCB table is added just for consistency requirements in the terminal 
driver code but here there is no functional use for the UCB table. 

All the detailed description of these added data structures are given in 
the section on maintainance of the ZTDRV with filenames and line numbers. 

7TnDU J*\ ^ R ??~! 1M s y stem there is a DCB describing the device type for the 
ZTDRV which has fields describing the legal function codes allowed on this 
driver and also types o function codes allowed. There is one DCB for the ZTDRV 
There is one UCB for each unit which has some static and some run-time status 
information of the individual units. At present there are only 8 units supported 
as more would eat up a lot of system pool. Since each unit is capapble of being 
active simultaneously, there exists an SCB for each unit which keeps run-time 
information. 

For the RSX-llM-PLUS systems in addition to the DCB and UCB's there 
exists a CTB, the controller table describing the type of controller supported 

wJ * u riVer *. There is ° ne CTB descrinbin 8 the DT-11 contoller whose name is 
ZT . There exists a contiguous SCB and KRB combination since each controller 
has only one unit attached and also each units is capable of full duplex 
operation. The KRB describes each individual controller. 

The important fields worth a mention in these data structures are as 
as follows: 



DCB: 



UCB: 



D.NAM — > device name f ZT f by which the system will recognise the 
device. 

U.CTL — > control flag UC.QUE which calls driver before queueing the 

packet. 
U.STS — > US.CRW says unit waiting for carrier. 
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SCB: 



KRB: 



CTB: 



US.DSB says unit disabled. 
U.CW2 — > U2.RMT says unit is a remote one. 

S.VEC ~> vector address initialized as since no real interrrupts. 
S.CSR > CSR address also initialized as since no real device. 

K.VEC — > vector address initialized as since no real interrupts. 

K.CSR — > initialized to the CSR for ZE device - ZECSR - since the 'CON 1 
task requires to probe into the CSR before putting the devive 
or controller ON-LINE. This constant is defines during task 
building of the ZTDRV depending on what the actual CSR is. 
This is a suggested improvement but presently it is 
initialized to 164000. 

L.NAM — > controller name for the pseudo controler - initialized as 

'ZT' since it does not take a separate name from the device 
name. 

L.KRB — > table of KRB addresses for all the 8 controllers. 

4.3.4 CONTROL FLOW OF TYPICAL TELNET REQUESTS: 

The flow of the controller dependent routines is as follows: 

When there is a request for making the carrier on from ther board for 
a particular pseudo tty then the routine in the ACP sets the unit as "not 
waiting for carrier" and enables the unit. This allows the request to come to 
the ZTDRV whenever there is a QIO #IO.INP for unsolicited input. The control 
first comes to the initiator entry point ZTINI . This routine dispatches to the 
proper function servicing routine using the table QPDSP. The control then comes 
to the routine QPINI for the function code IO.INP and to the routine QPOUT for 
the function code 10. OUT. 

4.3.4.1 QPINP: 

In the routine QPINP the input data is transfered into the local data 
structure LOCBUF and then one by one each character is input to the input 
character processing routine ICHAR1. The control flow is modelled similar to 
the DLV11-E with modem control. Then, for echoing the character, the start 
output routine YTSTAX is called which calls a routine OUTBUF which prepares a 
packet of 48 bytes from the system pool and queues it to the ACP via a $EXRQF. 
The TCB address of the ACP is found from the ZE data base U.ACP in its UCB. 
After the input characters are processed, the routines are called which process 
any other packet that would have arrived and also any other type of procesing 
like start unsolicited input processing, post fork processing etc. 

4.3.4.2 QPOUT, OUTBUF: 

For doing an output to the remote terminal, a QIO/QIOW #IO.WLB or IO.WBT 
is done which brings control to the controller dependent routine YTSTAX and this 
routine calls the routine OUTBUF which creates a packet in which the output data 
is stored and queues it to the ACP. After any data is queued to the ACP i.e. 
after data is output to the board, there has to be an output interrupt to 
acknowledge the completeion of output. The board gives a write reply after every 
write to the board and this is considered as the output interrupt and sent as a 
QIO #10. OUT to the ZTDRV which brings control to the routine QPOUT in the ZTYT 
module through the initiator entry point ZTINI. Here the routine OUTBUF is 
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called where the output buffer is first checked for any bytes left to be output 
and if so then another packet is created and queued to the ACP which again sends 
an output interrupt. If there is no data left for output then the routine ODONE 
is called which finishes the I/O by an IOFIN. 



4.3.4.3 YTRESX: 

The resume output entry point is called whenever there is a ~Q in the 
unsolicited input data stream. For a typical controller this routine is supposed 
to enable the output interrupts which will resume the output. But here there is 
no way of enabling the output interrupt but to simulate one that will cause the 

-St!: reSUme ** the main driver COde resets the bit S1 ' CTS wh i<* was set by 
a S. The output interrupt is simulated by sending a dummy packet to the ACP 
with byte count as and it recognises this packet and sends a QIO #IO.OUT and 
this starts the output in the usual way. 

4.3.4.4 YTMTIM: 

The modem time out entry point is called by the main ZT driver code 
whenever an I/O is cancelled by an IO.KIL (by doing an ABO to a running task 

nrn i™ ™?" ' and When * US6r loggS 0ut and the * BYE ' routine gives a 
QIO fto.HNG to the ZTDRV which calls the controller dependent routine at this 
entry point if the unit is a remote one. Here it is first checked if the user 
is logged in or not. If logged in then control has come due to an IO.KI1 and 
this call, is discarded and directly returned to the caller. If not logged in 

Util fn ^Tn^TT 18 StU1 ° n (i - e ' n0t Waiting for «"ier) then control has 
again for an IO.KIL as user is not logged in but could still run the HELP 

f ™L £ u hG Uni ^ 1S waitin S for a carrier then the control has come 
irom PPHNG, the routine that services the function code IO.HNG. In this case 

Tc P uMn 6t Wlth a peSUd ° function cod e (the one not described in the DCB) of 

^^1^^ ^ Sent . t0 thS ACP Via a $EXR ^ F (similar to that in YTRESX) 
ana the ACP calls the routine hangupO to send a TSHANGUP request to the board. 
Here the unit is also disabled (US.DSB) and the routine PPHNG sets the unit as 
waiting for carrier. 

4.3.4.5 YTUOFF: 

t For RSX-11M-PLUS systems control comes to this entry point whenever 
the unit is brought offline. Here the typeahead buffer is deallocated since 
it is allocated in the online entry point for the driver and not deallocated 
f VYu « 6r " S unloaded and l0 ^ded again, the previous address of the 
typeahead buffer remains in the UCB (which remains resident) and while loading 
the driver again the typeahead buffer is not allocated as some garbage address 
is present in that filed in the UCB. This causes the system to crash. If the 
typeahead buffer is deallocated when the driver is brought offline then that 
field is cleared and reloading the driver causes no problems. 

4.3.4.6 UNITNO: 

This routine calculates the unit number of the unit in question and 
stores it into the pty_no field of the packet queued to the ACP. 

4.3.4.7 GETACP: 

„ 4 „„ J"?* 8 routine gets the TCB address of the ACP from the ZE data base 
U.ACP of its UCB and returns it in R0. 
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4.3.4.8 ZTSET: 



to the TTSET routine'nThe ™ *? w ^ int6rrUpt ""^ P ° lnt 8imilar 
routine's structure i similar to £ b ^!!t?T? '■ *" the «=»'""«"• Thi. 
interr..r»h l=„oi m. similar to the TTSET's but since TTSET is called at 
interrupt level there are some extra things it does over there (calling SFORK 

is cin»H "" DOt " qUir6d hSre aS COntro1 «*»■ h«e v1.YqTO.Tm! ratine 

omes oal to a ZTSE? U and e h fr ° m -? PI f ?*■?" ^ P™— 1«* i- over contro " 
^omes to ZTSET and here it checks if any other processing is required or 



4.3.4.9 YTCOFF:: 



This is the controller offline entrv nnim f n , n,» dov im „,,.„ 
flnH rrtnh.fli ~ i. . •, , cuLry poinc ior tne RSX-11M-PLUS svstems 

that "a allocated frYth ^ ^ ?° ntroU " offline. Here the Clock Block 
PirY aS „ ii " k? ■ ™ SyStem p001 is deallocated back to the system oool 
^f-J,-, C r bl ° Ck " rem0Ved from the cl °ck queue by finding the entrv in 
sy: t em n pooi: k *" Cl ° Ck bl °° k8 CaUed $CLKHD and then '' i* deailocateTto the 

5. RESOURCE USAGE BY THE TELNET DRIVER: 

The telnet server, as a whole uses the following system resources: 
5.1 SYSTEM POOL: 

Server i^^T/n""," f ~- co T uaicatioa between the different of the Telnet 
the mos critical Ti ' ^ " allocated fr0 » the System Pool which is one of 
depends on this "* *" ^^^ "* tb ° " h ° le P« f ormance of the system 

The ZTDRV's code size is around 4KW and the rest of thP *™i'l fl Mo /,vu 
buff^: d f UP » £0 ™J»« the ^ Pool which is used for aUocating tn of 
buffer Z i n « rn " 1 , U ". 0f the d " Ver like the "CB extension, the type-ahead 
W f ' ? " S f ° r lnterm ediate bufferring, etc. If for some relson this 
local pool gets exhausted due to extensive load then the system pool is used 

users no ofYY mateQ - bUt U ^^^ ° n the 1<>ad °" the ™ <"° »? remote 
users, no. of tasks running on the remote terminals, etc.). 

... . The data t0 be output to the board from the ZTDRV is transfers i-„ th a 

tyter'Tne'aCP^ 'W'""™ ^ the S ^ m > 0Oi - Tha «" "l his packet s 48 
bytes. The ACP deallocates this packet only when the request from thP ttiwv • 

honoured otherwise it is kept in an internal ACP queue till it"s serviced tL 
innate at U wnicT k H tS 'T^ °* '** "" ° f the buffer to be out^t and if'" 6 

they are deallocated 6 It li "" allocaCed is hi 8 h " than the rate at which 
Lney are deallocated, then the system pooL might eet exhan«ii-pH Thio „ - 
depends on the amount of traffi/in the' ACP. LlSlyT^l^T^ %™' t 

packet ifusedXIoA^VS Uo wordsler IVtt^ ZVo <»/»•«». * 
Rqy-i im-ptttc"\ o *. ^i_* , . b LUT cne ks>a-iim and 20 words for the 

come to the ZTDRV A, 8 *?**\ ia * iven b » ck to the pool as soon as the control 
onHacket This I! ^i" ^ th * ™ s °} ici ^* ^put a QIOW is done which uses up 
«%£!! 4« V ; ! - a ° St immedlatel -y returned to the system pool as soon 
as the input data is transfered to the local buffer. 



5.2 CPU TIME: 
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Most of the processing takes place at priority and hence it does not 
hog the CPU at any time. Since there are no interrupts, the ZTDRV never operates 
at interrupt level and this causes no grief for other peripherals. 

5.3 UMR'S: 

The ZTDRV as such uses no UMR'S as it does not use the UNIBUS but the 
ACP does transfer the data to the board via the message area which contantly 
uses one UMR for the purpose. 

5.4 EVENT FLAGS: 

Only the event flag number 1 is used by the ACP for QIO's to the ZTDRV. 
So in adding any directive to the ACP this should be taken care of though it 
will not cause any trouble as it is used in blocked I/O's. 

6. MAINTAINANCE GUIDE FOR THE ZTDRV: 

The following is a line-by-line description of the changes done from the 
standard TTDRV to the make the ZTDRV. The reasons for the changes are also given 
and also their effects on the performance of the telnet operation: 

6.1 In all the files of the TTDRV, the .TITLE TT... is changes to ZT... 
as these are the module names for the new ZT driver. 

6.2 ZTDAT.MAC: .IDENT /04.03/ 

This file contains all the local data structures for the ZTDRV. These 
include the dispatch tables for different, function code handlers, for the 
controller dependent routines, for the terminal characteristics routines, 
character processing routines, etc. Also these contain the definitions for the 
different controller types, terminal types, controller tables, etc. 

1. Topic: Support for certain terminal characteristics is not there in certain 
versions of the RSX-11M. To take care of this sime .IF's have been 
added. 

Line numbers: 451-460 After ".ENDM ETERM..." 

500-504 After "TERM T.BMPI..." 

522-526 After "ETERM T.V132..." 
Changes to existing code: 

Previously: "TTPHI -- T.V2XX" 

(The following are the line numbers after the changes) 
(The .IF's and their corresponding .ENDC's are added but the rest 
already exists) 



1. #451 

2. #453 

3. #456 

4. #458 

5. #460 

6. #500 

7. #502 

8. #504 



".IF DF T.V2XX" 

"TTPHI == T.V2XX" 

".IFF" 

"TTPHI == T.BMPI" (added). 

".ENDC ;T.V2XX" 

".IF DF T.V2XX" 

"TERM T.V2XX WID=80. ,LEN=24. ,HHT=1,SCP=1 ,CUP=3" 

".ENDC ;T.V2XX" 
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9. #522 
10. #524 
11. #526 
12. #985 
13. #987 
14. #989 



".IF DF T.V2XX" 

"ETERM T.V2XX ANI=l,DEC=l,AVO=l,EDT=l,SFC=l 

f, .ENDC ;T.V2XX" 

".IF DF TC.SFC" 

"MCGEN TC.SFC, U„TSTA+6,S4.SFC ;SOFT CHARACTERS 

".ENDC ; TC.SFC" 



2. Topic: Table of pointers to dispatch tables in controller dependent routines, 
line numbers: 530-644 After "ETERM T.V2XX..." 

Changes to existing code: Addition of an entry into the dispatch table but 
DEC's future releases and addition of new controllers will not affect 
our code. 

Added code/data structures: 

1. #553: "I = 0" 

Constant symbol ' I' added for the purpose of calculating 
the controller type (index for these dispatch tables). 

2. #558: "1=1+ 2" 

Iterate this expression the number of times as there are DEC's 
standard controllers so that I gets the value of the last 
controller plus 2. 

3. #610: "YTINDX == I" 

A global symbol defined as the controller type (I) and is used in the 
ZT data base SCB and the UCB. 

4. #614-644: "$YTTBL..." 

The dispatch table for the DT-11 controller with 
routine names starting with 'YT' 

3. Topic: Verification of the value of the function codes and the dispatch table 
for processing different function codes before entering a packet in 
the I/O queue. 

Line numbers: 709-710 After "ASSUME IO.RTT/400,12. . ." 
766-767 and after ".WORD QPRLB..." 

Changes to existing code: Addition of entries into the dispatch table 

which will affect the future releases if DEC adds new function codes. 
There will be a conflict with our function codes (IO.INP and 10. OUT) 
and these have to have values such that they can index the last entries 
in the dispatch table which are contiguous entries. 

Added code/data structures: 

1. #709: "ASSUME IO.INP/400, 13" 
#710: "ASSUME 10. OUT/400, 14" 

These function codes are initialized with the values one more than 
the highest existing function code value i.e. IO.RTT/400 is 12 
and the next higher value is 13 which is for IO.INP/400 and 14 for 
10. OUT/400. 

2. #766: ".WORD QPINP" 
#767: ".WORD QPOUT" 

The entries in the dispatch table which are the input and output 
interrupt entry points for the DT-11 controller. 
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4. Topic: Local data structures added for the YT controller dependent routines 
Line numbers: 1065-1068 After "OPTIMR: : .WORD OPTIME..." 
Changes to existing code: none. 

Additions: 

1. #1065: "UCBADD:: .WORD 0" 
Storage for the UCB address. 

2. #1066: "ADLBUF:: .WORD 0" 
Address of the local buffer. 

3. #1067: "LOCBUF:: .BLKB 32." 
Local buffer for input characters. 

4. #1068: "COUNT:: .WORD 0" 
Byte count for the input characters. 

5. Topic: Data structures are added to include ztdrv's own Clock BLock, Fork 
Block and UCB Queue. 

Line numbers: 1073-1110 After "COUNT:: .WORD 0..." 

Changes to existing code: none. 

Additions: 

In all from lines 1073 to 1110: 

Xl=l 
Xl=l 

.IIF NDF M$$PR0 X2=l 
.IIF DF M$$PRO X2=M$$PRO 
.REPT X2 
ZT$UQL=. 
.IF DF M$$PRO 
LCKDF$ SPIN 
.IFTF 

.IIF NDF $ZTUQ $ZTUQ==. 
.WORD 0,.-2 

.IFT 
.WORD XI 

X1=X1*2 

• ENDC 

.IIF NDF $ZTFB $ZTFB==. 

.WORD 0,0,0,0,0 

ZT$UQL==.-ZT$UQL 

.ENDR 



INDEX TABLE TO ZT DRIVER 

UCB QUEUE HEADS AND FORK BLOCKS 



.IF DF M$$PRO 
Xl=$ZTUQ+2 
$ZTUQT:: 

.REPT M$$PRO 
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.WORD XI 
X1=X1+ZT$UQL 
.ENDR 
.ENDC 



$ZTCB:: .WORD 
.EVEN 



ZT DRIVER CLOCK BLOCK 
; ADDRESS OF THE CLOCK BLOCK 



6. Topic: Table of pointers to UCB tables. 

Line numbers: 1245-1249 After "TTUCB: : . . ." 

1274-1284 After "DL-11 Data bases..." 

Changes to existing code: Addition of one more entry in the Table of 

Pointers to the UCB tables for DT-11 controller. This change does not 
affect the existing code even if DEC upgrades or introduces support for 
more controllers as this entry will always be the last one and will be 
indexed by the controller type which is the highest always. 
This change will only be valid for RSX-11M systems and not for 
RSX-11M-PLUS systems as they donot require these tables. 

Additions: 

1. #1245: ".IF DF D$$T11" 

2. #1247: ".WORD DTUCB" 

3. #1249: ".ENDC ;D$$T11" 

4. from #1274-1284: 

.IF DF D$$T11 



DTUCB: 
N=0 



N=N+4 



; DT UCB POINTER TABLE 



.REPT 
.WORD 



.ENDR 
DTUCO: .BLKW 

.ENDC 



D$$T11 
DTUCO+N 



D$$T11*2 
; DF D$$T11 



J DT UCB/CSR TABLE 



7. Topic: Instructions added and modified to allocate the Clock Block from the 
system pool. And the Fork Block is made ZTDRV's and not TTDRV's. 

Line numbers: 1661, 1673 and 1877-1886 



Changes to existing code: 



1. #1661: 

2. #1673: 

3. #1877-1886: 



"MOV 
"MOV 

"MOV 
35$: 
MOV 
BEQ 
CMP 
BNE 



#$ZTFB+10,R1 
R0,@#$ZTFB+10 

#$DEVHD,R0 

@R0,R0 

50$ 

D.NAM(R0),#"ZT 

35$ 



;GET POINTER TO KINAR6 WORD IN" 
..." commented out. 
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CALL $ALCLK 

MOV R0,$ZTCB 

MOV #TTICK,C.SUB(R0)" 

Additions: 

1. #1943: "50$:" 

<> iif? el where M COntro1 comes when the ZT data base is not found. 
3. #1944: "RETURN" 

When control comes to 50$ it just returns and no further action is 
taken. 

6.3 ZTTBL.MAC: .IDENT /V4.00/ 

*~> 11 This u fil \ cont fins the driver dispatch table and some routines which 
are called when the driver is either loaded or put online etc. 

1. Topic: Naming conventions. The start of the dispatch table should start with 
the device's nmemonic 'ZT 1 . 

Line numbers: 61 and 141. 

Changes in the existing code: label names changed. 

1. #61: instead of "$TTTBL::" it is now "$ZTTBL::" 

2. #141 instead of "$TTTBE::" it is now "$ZTTBE::" 

Additions: none. 
2. Topic: Addition of the interrupt entry points in the dispatch table. 
Line numbers: 135-139 After "Y'x'CTBPj:: . ..." 

Changes in existing code: just added the interrupt entry points for the 
new controller and in the end so it will not affect the software if 
new controllers are added. 

Additions: 

1. from #135-139 the following is added: 

.ASCII /ZT/ 

.WORD $ZTINP 

.WORD $ZT0UT 

.WORD 

ZTCTBP::.WORD 

6.4 ZTTAB.MAC: .IDENT /02/ 

This file contains the data base for the ZTDRV and is coded in such a 
way that it will automatically asswemble for RSX-llM or RSX-11M-PLUS systems 
and generate the required database for that particular system. 

This section describes the type of data base selected for the pseudo 
terminal driver and gives the appropriate reasons and also describes the fields 
ot the data base and their static initialized values. 

1. CTB (for RSX-11M-PLUS only): 

One CTB describes the type of the controller used - the DT-11 - whose 
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name is 'ZT' (same as the device name). 

It's different fields are: 

L.ICB — > interrupt control block - nonexistant. 

L.LNK ~ > link to next is as only one controller. 

L.NAM — > .ASCII /ZT/ 

L.DCB — > pointer to the DCB 

L.NUM — > number of controllers = 8 

L.STS — > status = 

L.KRB ~ > table of all the 8 KRB address. 

2. DCB (for both M and M+): 

One DCB exists to describe the type of the device attached to the 
controller. The fields are as follows: 

n'r^n "" > Unk field is ° as driver onl y supports one device type. 

D.UCB — > pointer to the first UCB. 

D.NAM — > .ASCII /ZT/ 

D.UNIT — > lowest and highest unit nos. 

D.UCBL — > length og the UCB's 

D.DSP — > pointer to the driver dispatch table now null but later 

initialized by the LOA task. 
D.MSK ~ > function masks - has all the function codes supported 

by the TTDRV plus two function codes IO.INP and 10. OUT 

whose mask bits are 13 and 14 respectively. 
D.PCB — > pcb address of the partition in which the driver will be 

loaded - filled by the LOA task. 

3. UCB (for both M and M+): 

One UCB exists for each unit attached to each controller. Here we have 
one unit per controller. The fields are initialized as follows: 
U.UAB -- > (for M+ only) User account block address - not used. 
U.MUP/U.CLI — > mutliuser protection/CLI address used by the main driver 
code. 

n"nr U i5 C ~ _> l0gin ui ° " initialized to zero - used by the main code. 

U.OWN — > owning terminal's UCB address if device alocated. 
initialized to zero here. 

U.DCB — > back pointer to the DCB. 

U.RED — > redirect UCB address - here redirected to itself. 

U.CTL — > control flags: 

UC.ATT!UC.PWF!UC.KIL!UC.QUE 

Control comes to the driver whenever there is a request 
for attaching the terminal(UC.ATT) , on powerfailure 
(UC.PWF), for an 10 KILL requests(UC.KIL) , and during 
a normal request the packet is not queued to the 
driver's internal queue as task context is required to 
relocate user specified buf fers(UC.QUE). 

U.STS — > US.OIU - initialized as output interrupt unexpected. 

U.UNIT — > Physical unit no. i.e. the number of the unit w.r.t. 
the ones connected to one controller - here it is 0. 

U.ST2 — > for M and US.OFL for M+. For M+ unit is initialized 
as being offline and the CON task makes it online. 

U.CW1 — > DV.REC!DV.CCL!DV.TTY 

This device is a record oriented device(DV.REC) , also 
it is a carriage control device(DV.CCL) and it is a 
terminal device(DV.TTY). 
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U.CW2 



— > 



U2.LOG!U2.CRT!U2.LWC!U2.RMT 

The unit is not loggid in(U2.LOG), the unit is a CRT 

termmal(U2.CRT), it is set to lower case(U2.LWC) and 

it is a remote terminal (U2.RMT) so that modem facilities 

can be availed of. 



80. The default buffer size of the terminal before 

wrap around takes place. 

SCB address 

- attached task's TCB address - run time parameter. 

pointer to the UCB extension - - initialized at 

initialization time. 

unit status - 0. 

S2.ACRIS2.FLF 

Automatic carriage return and forced line feed. 

S3. TAB need for type-ahead buffer. 



(for M+ only) 0. 

lines per page = 24. 









(for M only) 0. 

terminal type - unknown. 

modem timer 0. 

address of the type-ahead buffer - - initialized at 

the initialization time. 

(for M only) = YTINDX - the controller type. 

y): 

one SCB for one unit since each unit operate independantly 
different contexts at the same time. This requires separate 
store thier run time contexts. The different fields are: 

and start of the SCB in the two words resp. 

This is the I/O queue list head which is so initialized 

but later used by the system and the driver. 

Priority of this device - PR5 

interupt vector address by 4. Here 0. 

initial time out count - 5. 

current time out count - 0. 

controller index - the number of the controller of the 

same kind. 



CSR address - 0. 

address of the I/O packet of the currently active I/O 
Fork link word - 0. 

5. Contiguous KRB/SCB (for M+ only): 

The ZTDRV requires a contiguous SCB and KRB because only one unit is 

have°to be°, *°?* ct ** t0 * controller and in this case context would 

SCB and 1 tit f u^ 7 °** UnU &t * time which re « uires °^Y one 
SCB and one KRB for the controller. In the M+ I/O philosophy, in such a 

case pool space is saved by avoiding two separate KRB's and SCB's by 



U.CW3 


— > 


U.CW4 


— > 


U.SCB 


— > 


U.ATT 


— > 


U.TUX 


— > 


U.TSTA 


— > 


U.TSTA+2 — > 


U.TSTA+4 — > 


U.TSTA+6 --> 


U.UIC 


— > 


U.TLPP 


— > 


U.TFRQ 


— > 


U.TFLK 


— > 


U.TCHP 


— > 


U.TCVP 


— > 


U.UIC 


— > 


U.TTYP 


— > 


U.TMTI 


— > 


U.TTAB 


— > 


U.CTYP 


— > 


4. SCB (for RSX- 


11M onl 


There is 


one SC 


and have 


differ 


SCB's to 


store 


S.LHD 


— > 


S.PRI 


— > 


S.VCT 


— > 


S.ITM 


— > 


S.CTM 


— > 


S . CON 


— > 


S.STS 


— > 


S.CSR 


— > 


S.PKT 


— > 


S.FRK 


— > 
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making them contiguous and in this case some fields become common to the 

SCB and the KRB both. The fields are as follows: 

K.PRM — > device dependent but here the controller type - YTINDX. 

K.PRI — > priority - PR5. 

K.VCT — > vector address - 0. 

K.CON — > controller index - for unit n it is n * 2. 

K.IOC — > i/o count for the controller - 0. 

K.STS — > status - KS.OFL - controller is offline, initially, till 
the CON task makes it online. 

K.CSR — > CSR address = 164000 the CSR for the EXOS board. This 
is initialized even though it isn't required because 
the CON task probes into the CSR to see if controller is 
present or not. The EXOS device has to be present if the 
ZTDRV has to become online - hence the initialization. 
As an improvemtent this field should be initialized to 
the label ZECSR which will be defined during task 
building time of the ZTDRV and its value will depend on 
the actual CSR of the target system. 

K.OFF — > offset to the UCB table - 0. 
K.HPU — > 

K.OWN — > Owning UCB address. Initialized as the corresponding 

UCB address. 
K.CRQ — > Controller request queue listhead and address of the 

SCB which is .-2 
K.FRK/S.FRK — > Fork block - f s„ 

S.KS5 > APR5 of the driver when it calls SFORK 
S.PKT — > 
S.CTM — > 

S.ITM — > 5 initial time out count. 
S.STS — > 
S.ST3 — > 

S.ST2 — > S2.CON - indicates that the SCB and KRB are contiguous. 
S.KRB > address of the corresponding KRB. 

6.5 ZTMAC.MAC: 

This is the assembly prefix file for the ZTDRV. 
1. Topic: Initialization of some constants used during the assembly time. 

Line numbers: 40-45 After The ".MCALL UCBDF$...." 

Changes from the existing code/data structures: none. 

Additions: 

1. #40 : M D$$T11 = 10" 

The controller DT-11 is recognized throughout the ZTDRV by this 
symbol and its value indicates the number of such controllers 
existant . 

2. #41 : "IO.INP = 5400" 

The input interrupt I/O function code. 

3. #43 : "10. OUT = 6000" 

The output interrupt I/O function code. 

4. #44 : "10. TEL = 177000" 

The pseudo function code for telnet requests to the board from the 
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ZTDRV. ('pseudo' because it is not within the allowed 32 legal 
function codes but it's purpose is not for the system but local to 
the communication between the ZTDRV and the ACP. Since the system 
is not comming into the picture (DRQIO) it can be initialized as 
it is. 

5. #45 : "TS.HNG = 176000" 

The pseudo function code for the Hangup request to the board. Since 
this request is to be handled differently by the ACP (different from 
the normal output data TSWRITE requests), it is made into a separate 
pseudo function code. 

2. Topic: Modem support 

Line number: 82 After ".IIP DF P$$GEN,..." 

Changes from the existing code: 

!• #82 : ".IIF NDF D$$LMD D$$LMD = 0" 

D$$LMD, which indicates the modem support for the DLV11-E controller is 
forcefully defined to include the modem support routines in the ZTDRV 
code at assembly time. 

It is suggested that instead of forcefully defining D$$LMD, to inturn 
define T$$MOD, T$$M0D should be defined forcefully as follows: 
after the line where T$$MOD might: get defined in current line number 84, 
".IIF NDF T$$M0D T$$MOD = 0" 

7. IMPROVEMENTS AND ENHANCEMENTS: 

The areas under which some improvement can be made in the ZTDRV are: 
7.1 CALLING THE ZTDRV DIRECTLY AND NOT VIA QIO'S: 

Some code changes could be made to somehow get the control into the 
]£5 Ut A a ? d outp V t interru Pt entry points directly and not via QIO's from the 
ACP. A lot of investigation into the interrupt handling of the executive would 
be required for the purpose. If a method to do so is found then it will speed 
up the telnet driver manifold and also reduce the size of the ACP. 

The best way to do this would be to find the input/output interrupt 

PCB r Lr°^! ™ SSe ! tf the ° load the APR 5 with th * APR 5 value stored in the 
PCB for the ZTDRV and then call those routines directly. This calling cannot be 
done inside the ACP or the ZEDRV since they are mapped by the APR 5. It will 
have to be done from inside the executive by first calling a routine in the 
executive which does this dispatching to the input/output interrupt entry 
points. Hence, the problem is to smuggle in a routine into the executive'! 
How to do this??? 

7.2 SOME DEBUGGING: 

The commented instructions in the routine INIT: : in the file ZTDAT.MAC 
cause problems while loading the driver. One has something to do with the fork 
block and the other with the clock block (refer to the maintainance guide). 
Atter commenting them there weren't any problems faced so investigation is 
required as to why the problems were caused. The problems of the clock block 

?hf 7Tn«f/° bl ?u k 55™ ^ een S ° lved but the 0ne £or the UCB * ueue is stiU not. 
^ ™ USe % th %™ '" UCB ^ eue and aome »»thod "UBt be applied to allocate 
the UCB queue for ZTDRV from the system pool and deallocate it when the driver 
is unloaded. For the clock block, which is allocated from the system pool when 
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the driver is loaded (for RSX-11M systems) or when it's first controller is put 
online (for RSX-11M-PLUS systems), it is never deallocated for the RSX-11M 
systems because control never comes to the driver while it is being unloaded. 
But for the RSX-11M-PLUS systems it is deallocated when the driver receives 
control while putting the controller offline. This means that the ZTDRV for the 
RSX-11M systems can never be unloaded (only if the system is re-booted) but for 
the RSX-11M-PLUS systems it can be unloaded. 

7.3 LOADING THE DRIVER TWICE FOR THE RSX-11M SYSTEMS: 

This problem is faced because the driver is called at the power fail 
entry point while loading it before the data base is made resident into the 
system pool. The INIT routine checks in the device tables if ZT is present or 
not. Since it does not find ZT data base during the virgin initialization of 
the driver, the local pool is not allocated and initialized and due to this 
all the system pool is eaten up. If the driver is loaded once and then again, 
the second time around it does find the data base and initializes the local 
pool. This double loading and unloading could be avoided by just loading the 
driver once and then as soon as the first: QIO comes, it would also initialize 
the local pool, if it wasn't already done so. This could mean a lot of changes 
in the ZTINI.MAC file and hence the maintainance would become more difficult. 
Hence, the present scheme is good enough unless there is some way out in the 
initialization time only (???). 

For RSX-11M-PLUS systems this is not a problem because when INIT:: 
is called the data base is already resident as it is called while making the 
controller online AFTER the driver is fully loaded. 

During the starting time for the network software the ZTDRV can be 
loaded twice and unloaded once to initialize the local pool. The first time it 
is unloaded the data base is not yet put in the system pool so the clock block 
is also not allocated at that time. It is only allocated when the data base is 
found in the system pool. 

7.4 ABOUT THE UCB QUEUE: 

The $TTUQ data structure, as defined in the file SYSTB.MAC, is for the 
purpose of the TTDRV. Since the code for ZTDRV is extracted from the TTDRV code, 
this data structure has remained in the ZTDRV code. The UCB queue didn't cause 
any problems even though it is meant for the TTDRV since it is a link list of 
the UCB addresses and this link list was being shared by both the TTDRV and the 
ZTDRV which turns out to be O.K. This is definitely not advisable and the 
ZTDRV 1 s own data structure - $ZTUQ should be defined in the ZTDAT.MAC file 
exactly as the ones for the TTDRV are done. But the problem is that since the 
systems might just be refering to this data structure, it is advisable to 
allocate it from the system pool and store the address of the UCB queue in a 
data structure called $ZTUQ and deallocate this back to the system pool when 
the driver is unloaded (for RSX-11M-PLUS systems). 

7.6 IF TERMINAL IS ATTACHED BY A TASK THEN telnet>q FAILS TO LOGOUT USER: 

This problem most generally occurs with terminals running EDT and then 
typing the escape character and quiting. This causes the ACP to call the routine 
"byeO" and this sends a A C followed by a "BYE\r" as an unsolicited input to the 
ZTDRV. If EDT is running then it traps this A C and also the BYE command line. 
The terminal remains logged in and EDT keeps running. 

The solution to this problem is that instead of giving a "C "BYE\r" as 
an unsolicited input to the ZTRDV, a QIOW #IO.HNG should be given to that unit 
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so that control will come to the modem timeout entry point of the controller 
dependent routines YTMTIM. Here the routine MHUP should be called which queues 
a BYE to the MCR for that terminal and this would cause the terminal to be 
logged out. If the user has privilege then the task might be even aborted by the 
BYE task. 

7.7 CHANGES TO BE MADE IF DEC ADDS NEW QIO CALLS: 

If DEC happens to increase the number of QIO calls to the TTDRV then 
it will affect our design if we were to upgrade the ZTDRV software. The 
following changes will have to be made to live up to this change: 

1. The value of the function codes has to be just above the last 
highest function code supported by DEC but the overall numbers of 
function codes should not exceed 32. This change will have to be made 
in the file ZTMAC.MAC. 

2. The entries of the input and output interrupt entry points in the 
dispatch table for the function codes service routines has to be the 
last ones i.e. the QPINP and QPOUT should always be the last entries 
in the dispatch table QPDSP. Changes will confine to the file 
ZTDAT.MAC. 

3. The definitions of the function codes IO_INP and IO_OUT will have to 
be changed in the file exqio.h. 
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THE 'ZE' DRIVER 

or 
THE EXOS DRIVER 
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NLIST CND 
NLIST SYM 

filename: 



ZEDRV.MAC 



ZEDRV: Driver code of the EXCELAN ethernet controller for 
RSX-11M on a Q-BUS/UNIBUS system. 

.TITLE ZEDRV 
.IDENT /01/ 

.ENABL LC 

.MCALL HWDDF$ , UCBDF$ , DCBDF$ , SCBDF$ , TCBDF$ , PKTDF$ 

HWDDF$ 

UCBDF$ 

DCBDF$ 

SCBDF$ 

TCBDF$ 

PKTDF$ 

.PSECT ABC 

ZESTART = . 

LOCAL DATA 

UCBR5 is a local storage to remember UCB address 



UCBR5: .BLKW 1 
UCB CAN: .BLKW 1 
TCBCAN: .BLKW 1 



.IF DF R$$MPL 

.IFF ;R$$MPL 

CNTBL: .WORD 

.IFTF ;R$$MPL 



LD$ZE — > Driver is loadable 
Z$$E11 — > No controller 



LD$ZE = 
Z$$E11 = 1 



Driver dispatch table 

.IFT ;R$$MPL 

DDT$ ZE,Z$$E11,NEW=Y 



; generate dispatch table 
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IFF ;R$$MPL 



$ZETBL:: 



.WORD 


ZEINI 


.WORD 


ZECAN 


.WORD 


ZEOUT 


.WORD 


ZEPWF 



:; initiator entry point 

; cancel entry point 

; time-out entry point 

; power fail entry point 



.ENDC ;r$$mpl 



This section contains all the I/O functions and their corresponding I/O 
codes with their value, for the ZE ethernet controller device 



IO.EXC = 002400 



EX. 


INI 


= 


0000 


EX. 


STR 


= 


0001 


EX, 


STS 


= 


0005 


EX. 


RST 


= 


0006 


EX, 


CNF 


= 


0007 


EX. 


OPN 


= 


0020 


EX, 


CLS 


= 


0021 


EX, 


POS 


= 


0022 


EX. 


SAR 


= 


0024 


EX, 


GAR 


= 


0025 


EX. 


DAR 


= 


0026 


EX, 


ART 


= 


0027 


EX, 


DRT 


= 


0030 


EX. 


SRT 


= 


0031 


EX, 


NRT 


= 


0032 


10. ACS = 003000 


SA, 


OPN 


= 


0062 


SA. 


ACC 


= 


0063 


SA, 


CON 


= 


0064 


SA. 


,SAD 


= 


0067 


SA, 


,CLS 


= 


0070 


SA. 


,SEL 


= 


0073 


SA. 


,USL 


= 


0210 


SA. 


,URG 


= 


0200 


SA 


,ROO 


= 


0220 


IO.XFR = 003400 


IX 


,RDS 


= 


0000 


IX 


,WRS 


= 


0001 


IX 


.SND 


= 


0065 


IX 


.RCV 


= 


0066 


IO.SOC = 004000 


SO 


• DON 


= 


0000 


SO 


.SKP 


= 


0001 


SO 


.GKP 


= 


0002 


SO 


• oLi'j 


= 


0003 


so 


.GLG 


= 


0004 


so 


.SOB 


= 


0005 



EXOS device administratve operation 

Reset and configure EXOS 

Execute EXOS process 

Read board's statistics 

Read and reset board's statistics 

get configuration message 

Open an administrative channel 

Close administrative channel 

seek into EXOS's memory 

set up an ARP table entry 

get an ARP table entry 

delete an ARP table entry 

add an Routing table entry 

delete an Routing table entry 

fetch an Routing table entry 

fetch next Routing table entry 

Socket related operations 

Open a socket for communication 

Accept connection on a remote socket 

Connect to a remote socket 

get socket information 

close a socket connection 

check possibility of I/O on socket 

kill a pending select call 

prepare for an urgent message 

remove oob pkt from the pending list 

data transfer operations on a socket 
read from TCP stream 
write to TCP stream 
send datagram to socket 
receive socket datagram 

real socket control operations 

shutdown read/write operation 

set keep alive 

inspect keep alive 

set linger time 

get linger time 

send out of band 
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SO. ROB 
SO.AMK 
SO. SPG 
SO.GPG 
SO.NRD 
SO.NBO 
SO.ASY 



0006 
0007 
0010 
0011 
0157 
0156 
0155 



IO. LOG = 004400 



receive out of band 

at out of band mark? 

set process group id 

get process group id 

FIONREAD 

FIONBIO 

FIOASYNC 

read error log from EXOS 



SOICTL = 56 
CH. WRITE = 1 



; size of SOictl structure 
; open channel in WRITE mode 



ZEINI ~ > 



INPUTS : 



EXOS driver initiator entry point. 

All functions are made control functions. As the UC.QUE bit is 
set, the QIO directive will pass the I/O packet, instead of 
queueing it, to the driver so that the user's context is not 
lost. The driver, on receiving a packet, does some address 
checking depending on the function, and relocates it. It 
also rearranges the driver dependent parametersin the I/O 
packet. Last three parameters (I.PRM+6 I.PRM+12) are shifted to 
to (I.PRM+12 to I.PRM+20). 

After rearranging and relocating the parameters, the driver 
inserts the packet into the ACP's queue and wakes it up. Hence, 
the actual queue buils up at the ACP. 



When the QIO directive passes the packet to the driver, it 
passes the following: 

Rl — > Address of the I/O packet. 

R4 — > Address of the status control block. 

R5 — > Address of the UCB of the device unit. 



.PSECT ABC 



ZEINI : 



folowing four statements are coded temporarily to keep the 
address of any UCB stored in the local variable UCBR5 so 
that on entry at the interrupt entry point the TCB address 
of the ACP can be found; 



; test whether it is already initialised 

; already initialised 

; move UCB address in UCBR5 



TST 


UCBR5 


BNE 


10$ 


MOV 


R5,UCBR5 



10$: 
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; shift parameter 4, 5 & 6 by two words in I/O packet 



60$: 



MOV 


R1,R3 


ADD 


#I.PRM+12,R3 


MOV 


#3,R4 


MOV 


(R3),4(R3) 


TST 


-(R3) 


SOB 


R4,60$ 



move I/O pkt address in R3 
make R3 points to param 6 
loop 3 times 
shift by two words 
decrement R3 by two 
loop 



check the following function codes whether they have the Soioctl structure 
address specified or not. If not then abort that request because that 
parameter is essential for these requests to succeed. 



70$: 



CMP I.FCN(R1),#I0.ACS!SA.ACC 

BEQ 70$ 

CMP I.FCN(Rl),#IO.ACS!SA.CON 

BEQ 70$ 

CMP I.FCN(Rl),#IO.ACS!SA.OPN 

BEQ 70$ 

CMP I.FCN(Rl),#IO.ACS!SA.SAD 

BEQ 70$ 

CMPB I.FCN+1(R1),#IQ.SOC/400 

BEQ 70$ 

CMP I.FCN(R1),#I0.XFR!IX.RCV 

BEQ 70$ 

CMP I.FCN(R1),#I0.XFR!IX.SND 

BNE 100$ 

TST I.PRM+4(R1) 

BNE 80$ 

MOV #IE.SPC&377,R0 

MOV R1,R3 

JMP 500$ 



is it 
if EQ 
is it 
if EQ 
is it 
if EQ 
is it 
if EQ 
is it 
if EQ 
is it 
if EQ 
is it 
if NE 



socket accept request? 

yes 

socket connect request? 

yes 

socket open request? 

yes 

obtain socket address request? 

yes 

socket control request? 

yes 

a receive message request? 

yes 

a sebd message request? 

no, so process other requests 



is Soioctl structure address there? 

if NE then yes so address check and 

relocate it. 

set illegal or no buffer error 

retrieve iopkt address 

abort request 



address check and relocate parameter #3, if any, which contains the 
address to the socket related parameters buffer 



80$: 



MOV 
MOV 



(R3),R0 
R1,R3 



.IF DF A$$CHK!M$$MGE 



MOV 


#SOICTL,Rl 


CALL 


$ACHKB 


BCC 


90$ 


MOV 


#IE.SPC&377,R0 


JMP 


500$ 



; move soictl buf address in R0 
; save I/O packet address in R3 



get size of SOICTL buffer 
address check buffer byte algn 
if CC ok 

set illegal buffer error 
abort request 



.ENDC 
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90$: CALL $RELOC 

MOV R1,I.PRM+6(R3) 

MOV R2,I.PRM+10(R3) 

MOV R3,R1 



relocate SOICTL buffer 

move relocation bias 

move displacement bias 

restore I/O packet address in Rl 



address check and relocate user buffer if neccessary 



100$: 



120$: 



CMPB I .FCN+KR1 ) ,#IO.XFR/400 

BEQ 120$ 

CMPB I. FCN+KR1), #10. ACS/400 

BEQ 160$ 

CMPB I.FCN+1(R1),#IO.SOC/40Q 

BEQ 160$ 

CMPB I.FCN+1(R1),#IO.WLB/400 

BEQ 120$ 

CMPB I.FCN+1(R1),#IO.RLB/400 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.CNF 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.STS 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.RST 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.SAR 

BEQ 120$ 

CMP I.FCN(Rl),#IO.EXC!EX.GAR 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.DAR 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.ART 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.DRT 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.SRT 

BEQ 120$ 

CMP I.FCN(R1),#I0.EXC!EX.NRT 

BEQ 120$ 

CMPB I. FCN+KR1), #10. LOG/400 

BNE 160$ 

MOV I.PRM(R1),R0 

MOV R1,R3 

.IF DF A$$CHK!M$$MGE 

MOV I.PRM+2(R1),R1 

CALL $ACHKB 

BCC 140$ 

MOV #IE.SPC&377,R0 

JMP 500$ 



is it a data transfer request 

if EQ yes 

is it socket access request 

EQ yes 

is it socket control fn 

if EQ yes 

is it EXOS memory write fn 

if EQ yes 

is it EXOS memory read fn 

if EQ yes 

is it read config msg fn 

if EQ yes 

is it read EXOS stat. fn 

if EQ yes 

is it read & reset EXOS stat fn 

if EQ yes 

is it set ARP function 

if EQ yes 

is it get ARP function 

if EQ yes 

is it delete ARP function 

if EQ yes 

is it add an RT entry fn 

if EQ yes 

is it delete an RT entry fn 

if EQ yes 

is it fetch an RT entry fn 

if EQ yes 

is it fetch next RT entry fn 

if EQ yes 

is it read error log fn 

if NE no, then fn have no buf 

move user buf addr in R0 
save I/O packet address 



get length of buffer 

address check buffer byte algn 

if CC ok 

set illegal buffer code 

and abort request 



.ENDC 
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140$: CALL $RELOC 

MOV I.PEM+2(R3),I.PRM+4(R3) 

MOV R1,I.PRM(R3) 

MOV R2,I.PRM+2(R3) 

MOV R3,R1 



shift byte count by a word 
move relocation bias 
move displacement bias 
restore address of I/O packet 



now queue the iopacket to acp and unstop it 



160$: 



200$: 



MOV 


U.ACP(R5),R0 


BNE 


200$ 


MOV 


#IE.DNR&377,R0 


MOV 


R1,R3 


JMP 


500$ 


JMP 


$EXRQP 


RETURN 





get TCB address of ACP task 
if NE acp task is active 
else acp not active 
move I/O pkt address in R3 
abort request 

; que I/O pkt to acp and wake it 



500$: 



CLR I.PRM+16(R3) 
JMP $IOFIN 



; clear the diagnostic field 

; finish I/O operation and inform 



ZECAN: The cancel I/O entry point. The driver is called at this entry 
point by the executive with the following parametrs 

R5 -> UCB address 

R4 -> SCB address 

R3 -> Controller index 

Rl -> Address of TCB of current task 

R0 -> Address of active ( if any ) I/O packet 

Out of all these parameters we are only interested in the TCB 
address. In our case the I/O packet address will be zero as 
we do not remember anything in the SCB 

At this point we will create an I/O packet and fill up its 
function code , TCB and UCB fields and then queue the packet 
to ACP, which will do the rest of the work. 



ZECAN: 



MOV 


R5,UCBCAN 


MOV 


R1,TCBCAN 


MOV 


#I.LGTH,R1 


CALL 


$ALOCB 


MOV 


#IO.KIL,I.FCN(R0) 


MOV 


TCBCAN,R5 


MOV 


R5,I.TCB(R0) 


MOV 


UCBCAN,R5 


MOV 


R5,I.UCB(R0) 



CANCEL 10 ENTRY POINT 

save UCB address 

save TCB address of current task 

Allocate an I/O packet 

move function code 

get TCB address of current task 

set TCB address 

get UCB address 

move UCB address to packet 
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MOV R0,R1 

MOV U.ACP(R5),R0 

JMP $EXRQP 



set Rl with packet address 
set RO with ACP address 
Q pkt & wakeup ACP 



$ZELOA/ZEPWF 



ZEPWF: 
$ZEUNL: 



$ZELOA: 



ZEPWF: 



The loadable driver/power fail entry point is entered upon by the 
Executive. The 22-bit physical start address of the local pool is 
calulated and stored in the UCB. This setup is only required for 
software running on the UNIBUS machines. 



.IF DF R$$MPL 



RETURN 



• IFF 



;R$$MPL 



.ENDC 


;r$$mpl 


„IF DF 

TWIT) 


UNIBUS 


NUr 

MOV 


@#KISAR5,R0 


OFFSET 


= LOCPOOL - ZESTART 


MOV 


R0,R1 


ASH 


#-12, RO 


BIC 


#177700, RO 


ASH 


#6,R1 


BIC 


#000077, Rl 


ADD 


#OFFSET,Rl 


MOV 


R0,U.ACP+2(R5) 


MOV 


R1,U.ACP+4(R5) 


RETURN 




.ENDC 


; UNIBUS 



; breakpoint for XDT 

; get start of driver code 



copy start of driver code 

get lower 6-bits of hi-order addr 

mask out remaining high bits 

get upper 10 bits of lo-order address 

mask out remaining bits 

get the start of driver's local pool 

save hi-order physical address and 
lo-order physical address in UCB 



ZEOUT: 



ZEKRB! 
ZEUCB: 



.IF DF R$$MPL 



; time-out entry point 



; controller on/off line entry point 
; unit on/off line entry point 
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.ENDC 
RETURN 



ZEINT: 



sema: : 


.word 


177776 


$ZEINT: 


• 
• 






INTSV$ 


ZE,PR4,Z$$E11 




sec 






ror 


sema 




bcc 


10$ 




return 




10$: 








MOV 


UCBR5,R5 




CALL 


$FORK 




MOV 


UCBR5,R5 




MOV 


U.ACP(R5),R0 




call 


$EXRQU 




mov 


#177776, sema 




RETURN 





ZE device driver entry point. 

This is a very uncommon way to to handle device interrupts. As 
the EXOS device processes all the requests in a pure 
asyncchronous way, it is very handy to process the interrupt 
service in the ACP which actually has all the necessary 
information. Hence, the driver's job is to deflect the interrupt 
to the ACP by just unstopping it if it is sleeping. 



; initial value of semaphore 

interrupt entry point of ZE device 
generate interrupt save code 

; ; set carry bit 

;; shift to set semaphore 

; ; semaphore OK 

;; return and dismiss interrupt 

; get address of UCB befor calling FORK 
; create system process 

unsave UCB address into R5 

move address of the TCB of the ACP 

request ACP execution after inserting 

the I/O packet 

release semaphore 



ZESIZE = . - ZESTART 
,.IF DF UNI BUS 
LEAVE: ,BLKW 1024. - ZESIZE 



LOCPOOL:: 

.BLKW 1 



.ENDC 
.END 



; size of zedrv code area 



; leave total of lkw before start of 
; driver's local pool 

; start of local buffer pool 
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.NLIST CND 
.NLIST SYM 



filename: ZETAB.MAC 

ZETAB: The database of the ZE driver is defined as follows. 



.TITLE ZETAB 
.IDENT /01/ 

System Macro Calls 

.MCALL UCBDF$,HWDDF$,SCBDF$,UCBDF$ 

UCBDF$ 

HWDDF$ 

SCBDF$ 

UCBDF$ 

.PSECT $$$ 

.GLOBL $ZEVEC 
.ENABL LC 



$ZEDAT: : 



; start of the ZEDRV device table 



.IF DF R$$MPL 



$CTB0: 



ZE CTB ; 



.WORD 



•WORD 


$CTB1 


.ASCII 


/ZE/ 


.WORD 


.ZCO 


.BYTE 


1 


.BYTE 






$ZECTB:: 



.WORD $ZEA 



; L.ICB 

L.LNK end of CTB list for ZE 

L.NAM controller's name 

L.DCB 

L.NUM no. of controllers 

L.STS status 

; L.KRB 





> * 




; END OF CTB ; 

. » 


.IFTF 


> 

;r$$mpl 


$ZETBL = 




$ZEDCB:: 




.ZCO: 




.WORD 


.ZCl 


• WORD 


.ZEO 


.ASCII 


/ZE/ 


.BYTE 


0,0 



; loadable ZEDRV 



D.LNK link to next DCB 

D.UCB pointer to first UCB 

D.NAM device name 

D.UNIT lowest and highast unit number 
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.WORD 
.WORD 



ZEND-ZEST 
$ZETBL 



D.UCBL lenght of UCB 

D.DSP pointer to device dispatch table 



The following tables define all the legal functions and their subdivisions 
in terms of NO-OP' s, ACP, CONTROL, TRANSFER functions. Apart from IO.KIL, 
10. ATT and IO.DET, all other functions are made control functions. With 
the UC.QUE bit in the U.CTL of the UCB set, the QIO directive will pass the 
I/O packet to the driver without queueing, such that user's context is saved. 
The 10 ATT & 10 DET functions are made NO-OPS. 



ZEST = 



.ZEO: 



.WORD 


001777 


.WORD 


001747 


.WORD 


000030 


.WORD 


000000 


.WORD 


000000 


• WORD 


000000 


.WORD 


000000 


.WORD 


000000 


.WORD 






.WORD 



.WORD 


.ZCO 


.WORD 


. - 2 


.IF DF 


UNIBUS 


.BYTE 


UC.KIL!UC.QUE!UC.PWF 


.IFF 


; UNIBUS 


• BYTE 


UC.KIL!UC.QUE!UC.PWF 


.ENDC 


; UNI BUS 


.BYTE 





.BYTE 





.IF DF 


R$$MPL 


.BYTE 


US. RED! US. PUB! US. OFL 


.IFF 


;R$$MPL 


.BYTE 


US. RED! US. PUB 


• ENDC 


;R$$MPL 


.WORD 


DV.EXT 



16. 


- 31. 


16. 


- 31. 


16. 


- 31. 


16. 


- 31. 



D.MSK legal functions 0-15. 

control functions 0-15. 

NO-OP functions 0-15. 

ACP functions 

legal functions 

control functions 

NO-OP functions 

ACP functions 
D.PCB PCB address of driver partition 

start of UCB 

U.OWN owning terminal's UCB address 

U.DCB back pointer to DCB 
U.RED redirect pointer 



; control flag byte, call on IO. KILL 
; and pass packet to driver 



; control flag byte, call on IO.KILL 
; and pass packet to driver 



; U.STS status flag U.STS 
; U.UNIT — does not apply 



; U.ST2 2nd status flag - unit cannot be 



.WORD 



redirected 

U.CW1 characteristic word 1 — > device 

is connected to 22-bit direct 

addressing controller 

U.CW2 char word 2 
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.WORD 

.WORD 

.WORD $ZE0 

.WORD 

.BLKW 3 

.IFT ;R$$MPL 

.WORD 

.IFTF ;R$$MPL 

.WORD 

.IF DF UNI BUS 

.BLKW 2 

.ENDC 



U.CW3 char word 3 

U.CW4 char word 4, no buffer required 

U.SCB pointer to SCB 

U.ATT attached task UCB 

U.BUF, U.BUF+2 & U.CNT 



; U.UCBX UCB extension 



; U.ACP TCB address of ZEACP 



; storage for the staring 22-bit 

; physical address of the local pool 



ZEND=. 



; end of UCB 



.IFT 



END OF UCB ; 



;R$$MPL 



$ZEA:: 



ZE KRB AND SCB - CONTIGUOUS 



.BYTE 


PR4 


.BYTE 


$ZEVEC/4 


.BYTE 


* 2 


• BYTE 





.WORD 


KS.OFL 


.WORD 


164000 


.WORD 


ZEA - $ZEA 


.BYTE 


0,0 


.WORD 






K.PRI 
K.VCT 
K.CON 
K.IOC 
K.STS 
start 
K.CSR 
K.OFF 
K.HPU 
K.OWN 



device priority 

interrupt vector by 4 

controller number times 2 

I/O count 

controller specific status 

address of KRB 

CSR address (default) 

offset to start of UCB table 

highest physical unit number 

UCB of currently active unit 



$ZE0: 



CONTIGUOUS SCB HERE FOR ZE 



.WORD 


0,.-2 


.WORD 


0,0,0,0 


.WORD 





.WORD 





.BYTE 


0,0 


.BYTE 


0,0 


.WORD 


S2.C0NIS2.LOG 


.WORD 


$ZEA 


.WORD 


2 



S.LHD & K.CRQ 

S.FRK fork block 

S.KS5 - KISAR5 saved here 

S.PKT address of I/O packet 

S.CTM, S.ITM crnt & init. timeout cnts 

S.STS, S.ST3 status bytes 

S.ST2 

S.KRB currently assigned KRB(the only) 

S.RCNT no. of words in I/O page 
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ZEA: : 



.WORD 



.WORD 





.BLKW 


6 


.WORD 






S.ROFF offset from S.CSR to start of 

device registers 
S.EMB for error logging 
MAPPING ASSIGNMENT BLOCK 
KE.RHB start of UNIBUS mapping 
register work, area 
start of UCB table (non-existant ) 



END OF KRB/SCB ; 



.IFF 



;R$$MPL 



$ZE0: 



.WORD 


0,.-2 


.BYTE 


PR4,$ZEVEC/4 


.BYTE 


0,0 


.BYTE 


0,0 


.WORD 





.WORD 





.BLKW 


5 



device I/O queue listhead 

device priority and vector 

current and initial timeout 

controller index and device status 

CSR address 

address of I/O packet 

FORK BLOCK 



.IF DF UNIBUS 



.WORD 



; S.MPR not used here but $IODONE 
; checks it so we keep it 



MAPPING ASSIGNMENT BLOCK (FOR UNIBUS MAPPING REGISTER ASSIGNMENT) 



M.LNK - link word 

M.UMRA - address of 1st ass. UMR 

M.UMRN - no. of UMR's * 4 

M.UMVL - lo 16-bit s mapped by 1st UMR 

M.UMVH - hi 2-bits mapped by 1st UMR 

M.BFVH - hi 6-bit s of phy buffer addr 

M.BFVL - lo 16-bits of phy buf addr 



.BLKW 




.BLKW 




• BLKW 




.BLKW 




• BLKB 




.BLKB 




.BLKW 




.ENDC 


; UNI BUS 


.ENDC 


;r$$mpl 



$ZEEND:: 

.ZC1 = 
$CTB1 = 



; end of ZE data base 

; end of DCB list for ZE: 
; end of CTB list for ZE: 



.END 



; end of file ZETAB.MAC 
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PIP LB:[l,54]ZEDRV.STB/PR/OW:RWED/SY:RWED/GR:RWED/WO:R/FO 
.ENABLE DISPLAY 
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.ENABLE QUIET 

.ENABLE SUBSTITUTION 

.DISABLE DISPLAY 

.IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

.IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

.IFDF $VEC .GOTO 5 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.5: 

Assemble the driver code 

MAC ZEDRV=LB: [ 1 , 1 ]EXEMC/ML,LB: [ 11 , 10 ]RSXMC ,SY: ' <UIC> ' ZEDRV 
MAC ZETAB^BlfljlJEXEMC/MLjLBtElljloiRSXMCjSYr^UIO'ZETAB 

•IFF $DEL .GOTO 10 
PIP ZEDRV. MAC;*, ZETAB. MAC ;*/DE 

.10: 

« 

; Now build the ZE (EXOS) driver. 

Create the task builder input file. Ask for the interrup vector 
location use default if the installer does not want to change it. 

» 

; Create the input command file for the linker 

5 

.OPEN ZETKB.CMD 

.DATA LB:[1,54]ZEDRV/-HD/-MM,,ZEDRV= 

.DATA ZEDRV, ZETAB 

.DATA LB:[1,54]RSX11M.STB/SS 

.DATA LB:[1,1]EXELIB/LB 

.DATA / 

.DATA STACK=0 

.DATA PAR=DRVPAR: 120000: 14000 

.DATA GBLDEF=$ZEVEC: , $VEC I 

.CLOSE 

J 

; Task build driver 

.IFT $NOPRE PIP LB: [ 1,54] ZEDRV. TSK;*/DE 
.IFT $NOPRE PIP LB: [ 1,54] ZEDRV. STB ;*/DE 
TKB @ f <UIC>'ZETKB 

delete indirect command file 

pip '<uic>'zetkb.cmd;*/de 
pip '<uic> 'zedrv. obj ;*/de 
pip ^uio 1 zetab. obj ;*/de 

set protection for the driver 
PIP LB:[l,54]ZEDRV.TSK/PR/OW:RWED/SY:RWED/GR:RWED/WO:R/FO 
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.ENABLE QUIET 

.ENABLE SUBSTITUTION 

.DISABLE DISPLAY 

.IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

.IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

.IFDF $VEC .GOTO 5 

.SETS $VEC ,f 400 ,f 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.5: 

Assemble the driver code 

MAC ZEDRV^LBltljllEXEMC/MLjLBlClljlOJRSXMCjSYl^UIO'UNIBUSjZEDRV 
MAC ZETAB=LB:[1,1.]EXEMC/ML,LB:[11,10]RSXMC,SY: I <UIC> , UNIBUS,ZETAB 

.IFF $DEL .GOTO 10 
PIP ZEDRV.MAC;*,ZETAB.KAC;*/DE 
.10: 

> 

; Now build the ZE (EXOS) driver. 

Create the task builder input file. Ask for the interrup vector 
location use default if the installer does not want to change it. 

» 

; Create the input command file for the linker 
5 

.OPEN ZETKB.CMD 

.DATA LB:[1,54]ZEDRV/-HD/-MM,,ZEDRV= 

.DATA ZEDRV,ZETAB 

.DATA LB:[1,54]RSX11M.STB/SS 

.DATA LB:[1,1]EXELIB/LB 

.DATA / 

.DATA STACK=0 

.DATA PAR=DRVPAR: 120000 : 14000 

.DATA GBLDEF=$ZEVEC: f $VEC f 

.CLOSE 

; Task build driver 

5 

.IFT $NOPRE PIP LB:[l,54]ZEDRV.TSK;*/DE 

.IFT $NOPRE PIP LB:[1,54]ZEDRV.STB;*/DE 

TKB g^UIO'ZETKB 

delete indirect command file 

PIP ^UIO* ZETKB.CMD ;*/DE 
PIP ^UIO'ZEDRV.OBJr-'/DE 
PIP , <UIO , ZETAB.OBJ;*/DE 

set protection for the driver 
PIP LB:[l,54]ZEDRV.TSK/PR/OW:RWED/SY:RWED/GR:RWED/WO:R/FO 
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PIP LB:[l,54]ZEDRV.STB/PR/OW:RWED/SY:RWED/GR:RWED/WO:R/FO 
.ENABLE DISPLAY 
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zedrv/-hd/-mm, zedrv/-sp , zedrv= 

zedrv,zetab,lb:[l,54]rsxllm.stb/ss 

lb:[l,l]exelib/lb 

/ 

stack=0 

par=drvpar : 120000 : 14000 

gbldef =$zevec : 400 

// 
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$ ! 

$ ! skeleton for bld.com 

$ ! 

$ if ""pi'" .nes. "?" then goto doit 

$ typ sys$input 

command file to build the task image 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required files: None 

required symbols: None 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ if ""pi*" .eqs. "" then $ pi = " f ' f $logical("sys$disk") ' ' ' f $directory( ) ' M 

$ set def f pl' 

$ show def 

$ ! 

$ ! Put your own commands here 

$ ! 

$ ! Make assignment for QBUS RSX11M 

$ ! 

$ assign draO: [qbusllm. ] lb: 

$ open/write lnkdrv tkb.cmd 

$ write lnkdrv "zedrv/-hd/-mm,zedrv/-sp,zedrv=" 

$ write lnkdrv "zedrv,zetab,lb: [ 1 ,54]rsxllm.stb/ss" 

$ write lnkdrv "lb: [ 1 , l]exelib/lb" 

$ write lnkdrv "/" 

$ write lnkdrv "stack=0" 

$ write lnkdrv "par=drvpar: 120000: 14000" 

$ write lnkdrv "gbldef =$zevec:400" 

$ write lnkdrv "//" 

$ close lnkdrv 

$ tkb @tkb.cmd 

$ delete tkb.cmd; 

$ ! 

$ ! Unibus M 

$ deassign lb 

$ assign draO: [unillm. ] lb: 

$ open/write lnkdrv tkb.cmd 

$ write lnkdrv "zedrvuni/-hd/-mm,zedrvuni/-sp,zedrvuni=" 

$ write lnkdrv "zedrvuni ,zetabuni ,1b: [ l,54]rsxllm. stb/ss" 

$ write lnkdrv "lb: [l ,l]exelib/lb" 

$ write lnkdrv "/" 

$ write lnkdrv "stack=0" 

$ write lnkdrv "par=drvpar: 120000: 14000" 
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$ write lnkdrv "gbldef=$zevec:400" 

$ write lnkdrv "//" 

$ close lnkdrv 

$ tkb @tkb.cmd 

$ delete tkb.cmd; 

$ deassign lb 

$! 

$! Unibus MPlus 

$! 

$ assign draO: [unillmp. ] lb: 

$ open/write lnkdrv tkb.cmd 



$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ write lnkdrv 
$ close lnkdrv 
$ tkb @tkb.cmd 
$ delete tkb.cmd; 
$ deassign lb 
$ exit 1 

$ abnormal_exit : 
$ deassign lb 
$ exit 2 



"zedrvup/-hd/-mm,zedrvup/-sp,zedrvup=" 

"zedrvup,zetabup,lb: [l,54]rsxllm.stb/ss" 

ff lb:[l,l]exelib/lb fl 
ii/i. 

"stack=0" 

"par=drvpar : 120000 : 14000" 

"gbldef =$zevec : 400" 

"//" 
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$ ! 

$ ! skeleton for cmplbr.com 

$ ! 

$ if ,,,, pl ,,f .nes. "?" then goto doit 

$ typ sys$input 

command file to compile and link the library 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required, files: 
none 

required symbols: 
none 

Note: 

You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ ! 

$ ! now make assignment for RSX11M Q-bus version 

$ ! 

$ assign draO: [qbusllm. ] lb: 

$ if ""pF"" .eqs. "" then $ pi = "' ' f $logical( ,l sys$disk ,, ) f ' ' f $directory( ) ' " 

$ set def 'pi' 

$ show def 

$ show logical lb 

$ mac zedrv, zedrv/-sp=lb : [ 1 , 1 ] exemc /ml , 1 b : [ 1 1 , 10 ] r sxmc , sy : [ 1 , 2 ] zedrv 

$ mac zetab,zetab/-sp=lb:[l,l]exemc/ml,lb:[ll,10]rsxmc,sy: [l,2]zetab 

$ ! 

$ ! now for unibus 

$ ! 

$ assign draO: [unillm. ] lb: 

$ show logical lb 

$ mac zedrvuni ,zedrvuni /-sp=lb: [ 1 , 1 lexeme /ml , lb: [ 11 , 10 ]r sxmc , sy : [ 1 , 2 lunibus , zedrv 

$ mac zetabuni ,zetabuni/-sp=lb: [ 1 , 1 ] exemc /ml ,1b: [ 11 , 10 ]r sxmc , sy : [ 1 ,2 lunibus ,ze tab 

$ ! 

$ ! now for unibus, M-Plus 

$ ! 

$ assign draO: [unillmp. ] lb: 

$ show logical lb 

$ mac zedrvup, zedrvup/-sp=lb : [1,1 lexeme/ml, lb: [11, 10 lr sxmc, sy:[ 1,2 lunibus, zedrv 

$ mac zetabup,zetabup/-sp=lb: [l, 1 lexeme /ml ,1b: [ 11 , 10]rsxmc,sy: [ 1 ,2 lunibus ,zetab 

$ exit 1 

$ abnormalexit : 

$ exit 2 
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skeleton for deliver. c 



$ ! 

$ I skeleton tor deiiver.com 

$ ! 

$ if ""pi" 1 .nes. "?" then goto doit 

$ typ sys$input 

command file to copy the deliver files to manufacturing area 
You should modify this file to copy the deliverables to 
exos$mf g : [ target_directory ] 

required command files: None 

required logical names: None 

exos$mfg - pseudo disk for deliverables 

required parameters: Noe 



required files: 
required symbols: 



None 



None 



$ exit 

$ doit: 

$ sv = f$verify(0) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ show def 

$ ! 

$ ! Put your own commands here 

$ ! 



$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ exit 1 

$ abnormal_exit : 

$ exit 2 



zedrv.mac 

zetab.mac 

blddrv.cmd 

install.cmd 

net. 

hosts.net 

hostlocal.net 

tapeins.cmd 

8030. hip 

blduni.cmd 

instuni .cmd 

tapeuni .cmd 



exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mf g 
exos$mfg 
exos$mfg 



[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx]net . 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsxunibusjblddrv.cmd 

[rsxunibus ]install .cmd 

[ rsxuni bus ] tape ins .cmd 
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THE SOURCE CODE FOR THE ACP 

1. The Include *.h files. 

2. The Source *.c files. 

3. The Assembly routine *.mac files. 

4. The Indirect command *.cmd files. 
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/* 



* filename: BRDIOCTL.H 
*/ 



/* 



* This file defines all the equate symbol for the administrative 

* device's ioctl commands. Some of them are passed as it is to the 

* board, hence should not be modified. 
*/ 



#define 


BRDINIT 


(0) 


#define 


BRDSTART 


(1) 


#def ine 


BRDGSTAT 


(5) 


#define 


BRDRSSTAT 


(6) 


#def ine 


BRDGCONF 


(7) 


#define 


BRDADDR 


(10) 


#def ine 


BRDSARP 


(20) 


#define 


BRDGARP 


(21) 


#define 


BRDDARP 


(22) 


#define 


BRDADDRT 


(23) 


#define 


BRDDELRT 


(24) 


#define 


BRDSHOWRT 


(25) 


#def ine 


BRDDISPRT 


(26) 



/* Reset EXOS devive */ 
/* start exos running */ 
/* get board statistics */ 
/* get/reset board statistics*/ 
/* get configuration msg */ 
/* set exos memory locator */ 

/* set an ARP table entry */ 
/* get an ARP table entry */ 
/* delete an ARP tbl entry */ 

/* add routing table entry */ 
/* delete RT entry */ 
/* show RT entry */ 
/* display RT entry */ 



/* Data structure used to send board statistics to host */ 



struct EXbdstats { 



long 


xmt ; 


long 


excess coll; 


long 


late coll; 


long 


tdr; 


long 


rev; 


long 


align err; 


long 


crc err; 


long 


lost err; 



/* frames transmitted successfully */ 
/* xmits aborted due to excess coll */ 
/* xmits aborted due to late coll */ 
/* time domain reflect ometer */ 
/* error free frames received */ 
/* frames revd with alignment err */ 
/* frames revd with crc errors */ 
/* frames lost due to no buffers */ 



/* other bits of info about the board */ 



}; 
/* 



short fw_release; 
short sw_release; 
short hw release; 



/* firmware release */ 
/* software release */ 
/* hardware release */ 



* Ioctl structure for manipulation of the ARP codes 
*/ 



struct EXarp_ioctl { 

struct sockaddr arp_pa; 

struct sockaddr arp_ha; 

long arp flags; 

}; 



/* protocol address 
/* hardware address 
/* flags 



*/ 
*/ 
*/ 
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#define ATF_C0M 2 /* completed entry */ 
#define ATF_PERM 4 /* permanant entry */ 
#de£ine ATF_PUBL 8 /* respond for another host */ 
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#define MAXCHANNEL 40 



#define CH_FREE 
#define CH_EXOS 
#define CH_SOCKET 

#define GH_WRITE 
#de£ine GH_PRIV 
#define CH_READ 
#define CH MCLOSE 



0x01 
0x02 
0x00 
0x80 



struct channel { 
Uchar ch_type; 
Uchar ch_flag; 
Ushort ch_tcb; 
Ushort rundn_cnt; 
union { 

Ushort ch_soid; 

struct exos_paddr ch_addr; 

} ch u; 

}; 



/* channel control block */ 

/* type of channel free, socket & etc */ 

/* protection flags */ 

/* tcb address of the associated task */ 

/* I/O rundown count on this channel */ 

/* socket id returned by the board */ 
/* memory locator of the Exos board */ 
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/* 






* filename: 


DEFINES. H 


*/ 






#def ine 


PKT 


io pkt->i_prm 


#def ine 


ex hd 


mp->nm u.rnsg hd 


#def ine 


ex_mg 


mp->nm u.msg nisg 


#def ine 


ex dl 


mp->nm u.nm dload 


#def ine 


ex str 


mp->nm u.nm start 


#def ine 


ex cmd 


mp->nm u.nm cmd 


#def ine 


ex pkt 


mp->nm u.nm packet 


#def ine 


ex ctl 


mp->nm u.nm ioctl 


#def ine 


ex_sel 


mp->nm u.nm select 


#def ine 


ex oob 


mp->nm u.nm hasoob 


#def ine 


ex tel 


mp->nm u.nm telnet 



/* 

* following are some functions defined as macros 
*/ 

#define sametask(chn) ((ch_des[chn] .ch tcb==io_pkt->i_tcb) ? 1 : 0) 

#define inrange(chn) (((chn > 0) && (chn < MAXCHANNEL)) ? 1 : 0) 

#de£ine writeprv(x) ((ch_des[x].ch_flag&(CH_PRIV|CH_WRITE))==(CH_PRIV|CH_WRITE)) 

#define ch_mfor_close(chn) ((ch_des[chn] „ch_flag & CH_MCL0SE) ? 1 : 0) 

/* dalpkt is defined to be dealoc_b after RTH merger */ 

#define dalpkt(p) dealoc_b(p, sizeof( struct iopkt)) 

/* following is just a dummy structure to be replaced by the actual one */ 

struct rtentry{ 

char rt[40]; 

}; 



#define NOREPLY 
#define UNSELECT 



0x1 
0x2 



/* 



* the following definitions are included from the actual soioctl.h file 

* used by the board code and other systems. As the SOIOCTL definitions 

* formed by these macros cannot be passed as io subf unction codes, the 

* final code for the board is made in the acp using these macros. 
*/ 



#define IOXFIO(y) 
#def ine IOXSIO(y) 



((•£• « 8) | y) 
<<V « 8) | y) 
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/* 



* filename: EXIOCMD.H 
*/ 



/* 



* following are the requests send to the board 

* - host to board request must be less than 64 ; 

* flags takes up upper two bits. 
*/ 



#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 



SOSOCKET 

SOACCEPT 

SOCONNECT 

SOSEND 

SORECEIVE 

SOSKTADDR 

SOCLOSE 

SOVERIFY 

SOIOCTL 

SOSELECT 



(50) 
(51) 
(52) 
(53) 
(54) 
(55) 
(56) 
(57) 
(58) 
(59) 



#define NET_DLOAD 
#define NETJJLOAD 
#de£ine NET_START 

#define NET_GSTAT 
#define NET_RSTAT 

#define NET_GC0NF 

#define NET_SARP 
#define NET_GARP 
#define NET_DARP 

#define NET_ADDRT 
#define NET_DELRT 
#define NET_SHOWRT 
#define NET DISPRT 





1 
2 

BRDGSTAT 
BRDRSSTAT 

BRDGCONF 

BRDSARP 
BRDGARP 
BRDDARP 

BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 



/* net download */ 

/* net upload */ 
/* start downloaded stuff*/ 

/* read net statistics */ 

/* read & reset stats */ 

/* get configuration msg*/ 

/* set ARP */ 

/* get ARP */ 

/* delete ARP */ 

/* add RT entry */ 

/* delete RT entry */ 

/* show RT */ 

/* display RT */ 



/* unsolicited messages from board */ 



#define 


SOSELWAKEUP 


(80) 


#define 


SOHASOOB 


(81) 


#def ine 


NET PRINTF 


100 


#define 


NET PANIC 


101 


#define 


IM_ALIVE 


102 


#define 


TSCOMMAND 


40 


#define 


REPLY OK 


0x00 



/* print out msg */ 
/* oh-my-gosh */ 

/* I think therfore I am*/ 

/* telnet request code */ 

/* all is well */ 



#define NM MAGIC DATA 0x80 
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#define MQ_EXOS 0x01 /* exos own Q element */ 

#define MQ_D0NE 0x02 /* exos done with Q elmnt*/ 

#define MQ_OVERFLOW 0x04 /* data are too big */ 
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/* 
* filename J EXOS.H 



ic 



*/ 



Data structures and associted constants definition for the EXOS-203 
ethernet controller , compatable with 3.1 version of the net module. 



struct exos_paddr{ 

Ushort base; 
Ushort off; 

}; 
/* 

* General headers 

*/ 

struct headers { 

/* Q or mailbox header 

Ushort mh_link; 

Uchar mh_reserved; 

Uchar mh_status; 

Ushort mh length; 



} 



struct mes sages { 

Ushort mh_link; 
Uchar mh_reserved; 
Uchar mh_status; 
Ushort mh length; 



/* segment value 
/* offset value 



*/ 

*/ 



*/ 

/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* Q or mailbox header * 
/* exos link address * 
/* not used must be * 
/* status of Q element * 
/* length of data packet* 



/* header in message proper */ 



short 


nm soid; 


long 


nm userid; 


Uchar 


nm request; 


Uchar 


nm reply; 



/* socket: id */ 

/* seq # attached to msg*/ 
/* command to exos */ 
/* reply from exos */ 



/* 



* NET_DL0AD structure 
* 

*/ 

struct net_dload{ 

Ushort mh_link; 
Uchar mh_reserved; 
Uchar mh_status; 
Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 
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/* header in message proper */ 

short nm_soid; /* socket id */ 

long nm_userid; /* seq # attached to msg*/ 

Uchar nm_request; /* command to exos */ 

Uchar nm_reply; /* reply from exos */ 

/* semantic of this structure */ 



Ushort nm_length; /* length of data */ 

long nm_source; /* source address */ 

struct exos_paddr nm_dest; /* destination address 

Uchar nm xmbyte; 

1; 

/* NET START structure */ 



*/ 



struct net start{ 



Ushort mh_link; 

Uchar mh_r e s erved ; 

Uchar mh_status; 

Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 



short 


nm 


soid; 


long 


nm 


userid; 


Uchar 


nm 


request ; 


Uchar 


nm 


reply; 


short 


nm 


sal; 


short 


nm 


"sa2; 



/* socket id */ 

/* seq # attached to mag*/ 

/* command to exos */ 

/* reply from exos */ 



/* 



* the following messages all pertain to the tcp/ip/socket 

* software which runs on the board; 
*/ 

/* S0CK_PKT structure: send/receive data to/from a socket */ 



struct Sock_pkt{ 

Ushort mh_link; 
Uchar mh_reserved; 
Uchar mh_status; 
Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 

short nm_soid; /* socket id */ 

long nm_userid; /* seq # attached to msg*/ 

Uchar nm_request; /* command to exos */ 

Uchar nm_reply; /* reply from exos */ 

short nm isaddr; /* non-zero iff nm sadr */ 



struct sockaddr nm saddr; 



/* socket address 



*/ 
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long nm_bufaddr; 

Ushort nm_count ; 

char nm data; 

}; 



/* host buffer addr */ 
/* byte count */ 

/* place for data */ 



/* Sock_cmd structure: send/receive command to/from exos 



struct Sock cmd{ 



Ushort mh_link; 

Uchar mh_re served; 

Uchar mh_status; 

Ushort mh_length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 



short nm_soid; 

long nm_userid; 

Uchar nm_r eque s t ; 

Uchar nm_reply; 



/* socket id */ 

/* seq # attached to msg*/ 

/* command to exos */ 

/* reply from exos */ 



/* semantics of this structure */ 



short 

struct 

struct 

short 

short 

short 

short 

}; 



nm_isaddr; /* non-zero iff nm_saddr*/ 
sockaddr nm_saddr; /* socket address 
sockproto nm_sproto; /* protocol structure 
nm_isproto; /* non-zero iff sproto */ 
nm_type; /* family with protocol */ 
nm_options; /* flags */■ 

nm_iamroot; /* is this priv user */ 



/* Sock_ioctl structure: socket ioctl command 



*/ 



struct Sock ioctl{ 



Ushort mh_link; 

Uchar mh_r e s erved ; 

Uchar mh_status; 

Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 

short nm_soid; /* socket id */ 

long nm_userid; /* seq # attached to mag*/ 

Uchar nm_request; /* command to exos */ 

Uchar nm_reply; /* reply from exos */ 

/* semantics of this structure */ 



short nm_ioccmd; /* ioctl command 
char nm iocdata[40]; /* holder for stuff 

}; 

/* Sock_printf structure: print f /panic from exos 



struct Sock_printf{ 

Ushort mh_link; 
Uchar mh reserved; 



/* exos link address 
/* not used must be 



*/ 
*/ 



*/ 



*/ 
*/ 



*/ 



*/ 
*/ 
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Uchar mh_status; 
Ushort mh length; 



/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 



short 


nm soid; 


long 

Uchar 

Uchar 


nm userid; 
nm request; 
nm reply; 



/* socket id */ 

/* seq # attached to msg*/ 
/* command to exos */ 
/■>'<• reply from exos */ 



/* semantics of this structure */ 



short 
char 

}; 



nm_dummy ; 

nm prdata[48]; 



/* align to long word 
/* printf data 



/* Sock select structure: select on socket 



*/ 
*/ 



*/ 



struct Sock select{ 



Ushort mh_link; 

Uchar mh_reserved; 

Uchar mh_status; 

Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 



short 


nm soid; 


/* 


long 


nm userid; 


/* 


Uchar 


nm request; 


/* 


Uchar 


nm reply; 


/* 



socket id */ 

seq # attached to msg*/ 
command to exos */ 

*/ 



/* reply from exos 
/* semantic of this structure */ 



short 


nm rwj 


short 


nm proc; 


short 


nm selcoll; 


1; 





/* how to select (read=0/write=l */ 

/* host proc which is selecting */ 

/* number of select collision for host */ 



/* Sock hasoob for when get out-of-band data 



*/ 



struct Sock hasoob{ 



Ushort mh_link; 

Uchar mh_re served; 

Uchar mh_status; 

Ushort mh length; 



/* exos link address */ 
/* not used must be */ 
/* status of Q element */ 
/* length of data packet*/ 



/* header in message proper */ 



short 


nm soid; 


long 


nm userid; 


Uchar 


nm request; 


Uchar 


nm reply; 



/* socket id */ 

/* seq # attached to msg*/ 

/* command to exos */ 

/* reply from exos */ 



/* semantic of this structure */ 



short nm sogrp; 



/* proc group */ 



short 


nm 


soid; 


long 


nm 


userid; 


Uchar 


nm 


request; 


Uchar 


nm 


reply; 



Uchar 


nm_tsrqst; 


Uchar 


nm_tsdlen; 


char 


nm tsdata[32]; 
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}; 

/* Telnet_srvr structure to hold telnet data */ 

struct Telnet_srvr { 

Ushort mh_link; /* exos link address */ 

Uchar mh_reserved; /* not used must be */ 

Uchar mh_status; /* status of Q element */ 

Ushort mh_length; /* length of data packet*/ 

/* header in message proper */ 

/* socket id */ 

/* seq # attached to msg*/ 
/* command to exos */ 
/* reply from exos */ 

/* semantics of the structure */ 

/* telnet server command*/ 
/* data length */ 
/* data buffer */ 

}; 



/* 

* Format of a standard "exos-to-host" or "host-to-exos" message: 

* - this is what is linked together in a Q which both the host 

* and exos manipulates while talking to each other. 

* - a message contains: 

* - a header describing the state of the message and its 

* size 

* - an actual network message 

* - ( For the host: 

* - a link for the host to use to maintain and follow the 

* message queue with 
* 

*/ 

struct msg{ 

union exos_u { 

struct headers msg_hd; 

struct messages msg_msg; 

struct net_dload nm_dload; 

struct net_start nm_start; 

struct Sock_pkt nm_packet; 

struct Sock_cmd nm_cmd; 

struct Sock_ioctl nm_ioctl; 

struct Sockjprintf nm_printf; 

struct Sock_select nm_select; 

struct Sock_hasoob nm_hasoob; 

struct Telnet_srvr nm_telnet; 
} nm_u; 
struct msg *msg_link; /* host link to next msg */ 

}; 
/* 
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* To run this board, a static data area is kept in the ACP task 

* which will contain the linked list of this messages acting as 

* ring buffer. 

* The [rw]msg_area structures is used to contain the working 

* queues which both the host and exos manipulates 
* 

*/ 



#define NET_RBUFS 
#def ine NET WBUFS 



struct rmsg_area { 
Ushort ma_rlink; 
struct msg ma_rmsgs[NET_RBUFS]; 
struct: msg *ma_lastr; 

}; 

struct wmsg_area { 
Ushort; ma_wlink; 
struct msg ma_wmsgs[NET_WBUFS] ; 
struct msg *ma_lastw; 

}; 



/* read message queue */ 

/* exos link to next msg*/ 

/* exos to host msgs */ 

/* last examined msg */ 



/* exos link to queue */ 
/* host to exos msg */ 
/* last examined msg */ 
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/* 
* These are the DIC and DPB lengths of the Executive directives 

*/ 

# define QIO 06001 

# define QIOW 06003 

# define ALUN 02007 

# define WTSE 01051 

# define GTIM 01075 

# define SPWN 06413 

# define SDRC 03615 

# define SDAT 02507 

# define STOP 0603 

# define RCVD 02113 

# define MRKT 02427 

/* Executive return status */ 



# define 


IE BAD 


-01 


# define 


IE IFC 


-02 


# define 


IE DNR 


-03 


# define 


IE SPC 


-06 


# define 


IE ABO 


-15 


# define 


IE PRI 


-16 


# define 


IE DFU 


-24 


# define 


IE FHE 


-59 


# define 


IE OFL 


-65 



/* bad parameters * 

/* illegal function * 

/* device not ready * 

/* illegal buff err * 

/* request aborted * 
/* priv or channel error* 

/* no free channel * 

/* fatal hardware error * 

/* device offline * 



/* 

* These are the function codes related to the QIO call to the ZE device 

*/ 

/* 

* following five codes are already defined in standard rsx header file 

* rsx.h and are not defined here only shown under comment for clarity 



define IOJCIL 000012 

define IOWLB 000400 

define IORLB 001000 

define IOATT 001400 

define 10 DET 002000 



# kill all outstanding request # 

# write to the EXOS memory # 

# read from the EXOS memory # 

# attach fn: made no-op # 

# detach fn: made no-op # 



*/ 



#define 


10 EXC 


002400 


#define 


EX INI 


BRDINIT 


#def ine 


EX CNF 


BRDGCONF 


#define 


EX STR 


BRDSTART 


#define 


EX STS 


BRDGSTAT 


fdefine 


EX SAR 


BRDSARP 


#define 


EX GAR 


BRDGARP 


#define 


EX DAR 


BRDDARP 


#def ine 


EX ART 


BRDADDRT 


#def ine 


EX DRT 


BRDDELRT 


#def ine 


EX SRT 


BRDSHOWRT 


#def ine 


EX NRT 


BRDDISPRT 



/"* EXOS board admn. operation */ 

/* Reset and configure EXOS */ 
/* get configuration msg 
/* Execute EXOS procedure * 
/* Read network statistics * 
/* set up an ARP table entry * 
/* Retrive an ARP table entry * 
/* Delete an ARP table entry * 
/* Add an Routing table entry * 
/* Delete an RT entry * 
/* Fetch an RT entry * 
/* Fetch next RT entry * 



*/ 
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#def ine 


EX RST 




BRDRSSTAT 


#define 


EX OPN 




0020 


#define 


EX CLS 




0021 


#define 


EX_POS 




BRDADDR 


#define 10 


ACS 


003000 


^define 


SA OPN 




50 


#define 


SA ACC 




51 


#define 


SA CON 




52 


#define 


SA SAD 




55 


#de£ine 


SA CLS 




56 


#define 


SA SEL 




59 


#define 


SA USL 




0210 


#define 


SA URG 




0200 


#de£ine 


SA ROO 




0220 



/* Read & Reset network stats */ 

/* Open an admin channel */ 

/* Close an admin channel */ 

/* Seek EXOS's memory */ 

/* Socket access operations */ 

/* Open a socket */ 

/* Accept a remote socket */ 

/* Connect to a remote socket */ 

/* get socket informations */ 

/* close an opened socket */ 

/* perform select op on socket*/ 

/* kill the outstanding select call */ 

/* prepare for urgent msg */ 

/* remove oob pkt from pending list */ 



#define IO_XFR 003400 
#define IX_RDS 0000 
#de£ine IX_WRS 0001 
#define IX_SND 53 
#define IX RCV 54 



#de£ine 


10 


soc 


004000 


#define 




SO DON 


SIOCDONE 


#define 




SO SKP 


SIOCSKEEP 


#define 




SO GKP 


SIOCGKEEP 


#define 




SO SLG 


SIOCSLINGER 


#define 




SO GLG 


SIOCGLINGER 


#define 




SO SOB 


SIOCSENDOOB 


#define 




SO ROB 


SIOCRCVOOB 


#define 




SO AMK 


SIOCATMARK 


#def ine 




SO SPG 


SIOCSPGRP 


#define 




SO GPG 


SIOCGPGRP 


#de£ine 




SO NRD 


FIONREAD 


#define 




SO NBO 


FIONBIO 


#define 




SO_ASY 


FIOASYNC 


#define 


10 


LOG 


004400 


#define 


TO" 


TEL 


0177000 


#def ine 


TS" 


HNG 


0176000 



/* data transfer operation */ 
/* read from TCP stream 
/* write to TCP stream 
/* send datagram to a socket 
/* receive socket datagram 

/* socket control operations */ 
/* shutdowm r/w on socket 
/* set keep alive 
/* inspect keep alive 
/* set linger time 
/* get linger time 
/*>'<* send out of band 
/* receive out of bound 
/* at oob mark ? 
/* set process group 
/* get process group 
/* FIONREAD 
/* FIONBIO 
/* FIOASYNC 



*/ 
*/ 
*/ 
*/ 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



/* read error msg from EXOS */ 

/* telnet server pseudo fn code */ 

/* hangup carrier pseudo fn code*/ 



/* 



* All the Socket related parameters in the QIO call are passed 

* throgh the structure "SOictl" defined below. 
*/ 



struct 



SOictl 


{ 


short 


hassa; 


struct 


sockaddr sa; 


short 


hassp; 


struct 


sockproto sp; 


int 


type; 


int 


options; 


/* these are for select () 


int 


nfd; 


long 


*wp; 



/* non-zero if sa specified */ 
/* socket address (optional) */ 
/* non-zero if sp specified */ 
/* socket protocol (optional) */ 
/* socket type */ 

/* options */ 

*/ 
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long *rp; 
long timo; 

}; 
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/* 
* finename: 

*/ 



EXREG.H 



/* 



* data structures for the Excelan exos/203 ethemet controller 
*/ 



/* 



* The exctrl structure is used to maintain the software device during 

* its use. 
*/ 



struct exctrl { 

Ushort ex_port ; 

struct init_msg *ex_imsg; 

Ushort exstate; 

Uchar ex_init; 

}; 



/* our port address 164000 */ 

/* virtual pointer to init msg */ 

/* state of the controller */ 

/* device has been initialized */ 



/* 
* ex_state values 

*/ 

# define ST_INIT 

# define ST_WAITING 

/* 
" port address word 

*/ 

# define EX_PORT 

# define EX_P0RTA 

# define EX PORTB 



0x01 
0x02 



04000 



2 



/* device has been setup */ 
/* waiting for setup */ 



/* port address offset in I/O page*/ 
/* offset for PORTA */ 
/* offset for PORTB */ 



/* 



* macros for ease of use 
*/ 



# define PORTA 

# define PORTB 

/* 
* bits in port B 

*/ 

# define PB_ERROR 

# define PB_INT 

# define PB READY 



(ex_db.ex_port + EX_PORTA) 
(ex db.ex port + EX PORTB) 



001 
002 
008 



/* fatal error when */ 
/* exos has interrupted when 1 
/* exos is ready when */ 



*/ 
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/* unsigned data types (shorthand) */ 

typedef unsigned int Uint; 
typedef long Ulong; 

typedef unsigned short Ushort; 
typedef char Uchar; 
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/* @(#)in.h 



1.3 4/12/85 */ 



/* 

* GAP 1/11/85: WARNING - This file is included by both host 

* and board code. Make changes with extreme caution, and test 

* effects on both the host and board sides. 
*/ 

/* 

* Constants and structures defined by the internet system, 

* Per RFC 790, September 1981. 
*/ 



/* 
* Protocols 

*/ 

#de£ine IPR0_ICMP 
#de£ine IPPROTO_GGP 
#define IPR0_TCP 
#de£ine IPR0_PUP 
#define IPR0_UDP 

#define IPR0_RAW 
#define IPRO MAX 



1 

2 

6 

12 

17 

255 
256 



/* control message protocol */ 

/* gateway^ (deprecated) */ 

/* tcp */ 

/* pup */ 

/* user datagram protocol */ 

/* raw IP packet */ 



/* 

* Port/socket numbers: network standard functions 

*/ 

#define IPP0RT_ECH0 7 

#de£ine IPRT_DISCARD 9 

#define IPRT_SYSTAT 11 

#define IPPORT_DAYTIME 13 

#define IPRTJJETSTAT 15 

#de£ine IPRT_FTP 21 

#define IPPORT_TELNET 23 

#define IPPORT_SMTP 25 
#define IPRT_TIMESERVER 37 

#define IPPORT_NAMESERVER 42 

#de£ine IPP0RT_WH0IS 43 

#define IPPORT_MTP 57 

/* 

* Port/socket numbers: host specific functions 

*/ 

#define IPRT_TFTP 69 

#define IPRT_RJE 77 

#define IPPORT_FINGER 79 

#define IPRT_TTYLINK 87 

#define IPRT_SUPDUP 95 

/* 

* UNIX TCP sockets 

*/ 
#define I PRT_EXEC SERVER 512 

#define IPPORT_LOGINSERVER 513 

#define IPPORT CMDSERVER 514 
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/* 
* UNIX UDP sockets 

*/ 
#define IPPORT_BIFFUDP 
#define IPRT WHOSERVER 513 



512 



/* 

* Ports < IPPORT_RESERVED are reserved for 

* privileged processes (e.g. root). 

*/ 
#de£ine IPPORT_RESERVED 1024 

/* 

* Link numbers 

*/ 

#define IMPLK_IP 155 

#de£ine IMPLK_LOWEXPER 156 
#define IMPLINK_HIGHEXPER 158 

/* 

* Internet address (old style... should be updated) 
*/ 

struct in_addr { 
union { 

struct { char s_bl,s_b2,s_b3,s_b4; } 
struct { unsigned short s_wl,s_w2; } 
long S addr; 



S_un_b ; 
S un w; 



) 



S_un; 

addr 

host 



S_un.S_addr /* can be used for most tcp & ip code */ 

S_un . S_un_b . s_b2 /* host on imp */ 

S_un.S_un_b.s_bl /* network */ 

S_un.S_un_w.s_w2 /* imp */ 

S_un.S_un_b.s_b4 /* imp # */ 

S_un.S_un_b.s_b3 /* logical host */ 
S un.S un b 



#define 

#define _ 

#de£ine s_net 

#de£ine s_imp 

#de£ine s_impno 

#define s_lh 

#define S_baddr _ _ _ 

}; 
/* 

* Macros for dealing with Class A/B/C network 

* numbers. High 3 bits of uppermost byte indicates 

* how to interpret the remainder of the 32-bit 

* Internet address. The macros may be used in time 

* time critical sections of code, while subroutine 

* versions also exist use in other places. 
*/ 

/* 

* GAP 1/10/85: Apparently these are designed to work on internet 

* addresses which reside in network order in RAM, if regarded as 

* a byte string. Be careful, because 4.2BSD defines just one 

* version of these macros, which works on internet addresses only 

* after they are swapped into proper order (in a CPU register) 

* by ntohK). 
*/ 



/* GAP 1/10/85: Note fancy footwork below to share header with board code */ 
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#ifdef ONBOARD 
#define IN_CLASSA 
#de£ine INCA_NET 
#define INCA_LNA 
fdefine INCB 
fdefine INCB_NET 
#define INCB_LNA 
#define INCC_NET 
#define INCC_LNA 
#endif 

#ifndef ONBOARD 



/* board make does not define MACHINE type */ 
0x00800000L 



OxOOffOOOOL 
OxffOOffffL 
0x00400000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffOOffL 
OxOOOOffOOL 



/* 8 bits of net # */ 

/* 16 bits of net f */ 
/* 24 bits of net f */ 



/* board make does not define MACHINE type */ 



#ifdef VAX 

#define IN_CLASSA 0x00000080 
#define INCA_NET OxOOOOOOff 
#define INCA_LNA OxffffffOO 
#define INCB 0x00000040 



fdefine INCB_NET 
fdefine INCB_LNA 
#define INCC_NET 
#define INCC_LNA 
fend if 

#ifdef PDP11 
#define IN_CLASSA 
fdefine INCA_NET 
#define INCA_LNA 
#define INCB 
#define INCB_NET 
#define INCB_LNA 
#define INCC_NET 
fdefine INCC_LNA 
fend if 

#ifdef 18086 
fdefine IN_CLASSA 
#define INCA_NET 
fdefine INCA LNA 



OxOOOOffff 
OxffffOOOO 
OxOOffffff 
OxffOOOOOO 



/* 8 bits of net f */ 

/* 16 bits of net # */ 
/* 24 bits of net f */ 



/* Also 8086 XENIX V7 C */ 
0x00800000L 



OxOOffOOOOL 
OxffOOffffL 
0x00400000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffOOffL 
OxOOOOffOOL 



/* 8 bits of net f */ 

/* 16 bits of net # */ 
/* 24 bits of net f */ 



#define INCB 0x00000040 
fdefine INCB NET OxOOOOffff 



/* XENIX 3.0, Lattice C */ 
0x00000080 

OxOOOOOOff /* 8 bits of net f */ 
OxffffffOO 



#define INCB_LNA 
#define INCC_NET 
fdefine INCC_LNA 
fend if 

fifdef M68000 
fdefine IN_CLASSA 
fdefine INCA_NET 
fdefine INCA_LNA 
fdefine INCB 
fdefine INCB_NET 
fdefine INCB_LNA 
fdefine INCC_NET 
fdefine INCC_LNA 
fend if 

fifdef Z8000 
fdefine IN_CLASSA 
fdefine INCA NET 



OxffffOOOO 
OxOOffffff 
OxffOOOOOO 



0x80000000L 
OxffOOOOOOL 
OxOOffffffL 
0x40000000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffffOOL 
OxOOOOOOffL 



/* 16 bits of net f */ 
/* 24 bits of net f */ 

/* 8 bits of net f */ 

/* 16 bits of net f */ 
/* 24 bits of net f */ 



0x80000000L 
OxffOOOOOOL /* 8 bits of net f */ 
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#define INCA_LNA OxOOffffffL 

#define INCB 0x40000000L 

#define INCB_NET OxffffOOOOL /* 16 bits of net # */ 

#define INCB_LNA OxOOOOffffL 

#de£ine INCC_NET OxffffffOOL /* 24 bits of net # */ 

#define INCC_LNA OxOOOOOOffL 

#endif 

#endif ONBOARD /* board make does not define MACHINE type */ 

#define IN NETOF(in) \ 

((Tin).s addr&IN_CLASSA) == ? (in) . s_addr&INCA_NET : \ 

T(in).s_addr&INCB) == ? (in) . s_addr&INCB_NET : \ 
(in).s_addr&INCC NET) 
#define IN_LNAOF(in) Y 

(((in).s_addr&IN_CLASSA) == ? (in).s_addr&INCA_LNA : \ 

((in).s_addr&INCB) == ? (in) . s_addr&INCB_LNA : \ 
(in).s_addr&INCC_LNA) 

#define INADDR_ANY 0x00000000 

/* 
* Socket address, internet style. 
*/ 

struct sckadr_in { 

short sin_family; 
unsigned short sin_port; 
struct in_addr sin_addr; 
char sin_zero[8]; 

1; 

#ifdef KERNEL 

long in_netof (),in_lnaof (); 

#endif 
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/* 

* filename; INIT.H 
*/ 

/* 

* Structure used for initialization only. 
*/ 

/* some of the dummy entries are due to byte swapping */ 



truct init_ms 


:g_{ 


short 


im newstyle; 


char 


im version[4] ; 


char 


im result; 


char 


im mode; 


char 


im_hdfo[2]; 


char 


im_junk[3]; 


char 


im_addrmode; 


char 


im dummy2; 


char 


imjnmsize; 


char 


im_byteptn[4]; 


Ushort 


im_wordptn[2]; 


long 


im longptn; 


char 


im_mmap[20]; 


short 


im_101off ; 


short 


im lOlseg; 


char 


im nproc; 


char 


im nmb; 


char 


im nslots; 


char 


im nhosts; 



/* "host to exos" stuff */ 

long im_h2exqaddr; 

short im_h2exoff; 

char im_h2extype; 

char im_h2exvalue; 

long im_h2exaddr; 

/* "exos to host" stuff */ 



/* new style init msg? */ 
/* version to the hardware */ 
/* completion code */ 
/* set to link moce (0) */ 
/* host data format option */ 

/* host address mode */ 

/* memory map size (returned) */ 
/* data order byte pattern */ 
/* data order word pattern */ 
/* data order long pattern */ 
/* (rest of) memory map (returned)*/ 



/* movable block offset */ 
/* movable block segment */ 
/* number of exos 101 processes 
/* number of exos 101 mailboxes 
/* number of address slots */ 
/* number of hosts == 1 */ 



*/ 
*/ 



/* host to exos msg a address */ 
/* offset from base of actual q */ 
/* interrupt type for h2ex msg q */ 
/* interrupt value */ 
/* interrupt address */ 



long 

short 

char 

char 

long 

}; 


im ex2hqaddr; 
im ex2hoff; 
im ex2htype; 
im ex2value; 
im_ex2haddr ; 


/* im mode */ 




# define EXOS 

# define EXOS" 

# define EXOS - 


LINKMODE 
"HOSTLOAD 1 
"NETLOAD 2 



/* exos to host msg q address */ 
/* offset from base of actual q */ 
/* interrupt type for ex2h msg q */ 
/* interrupt value */ 
/* interrupt address */ 
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/* 




* filename: IOPKT.H 


*/ 




struct 


rel addr { 




Ushort rel bias; 




Ushort dis bias; 




}; 


struct 


iopkt { 




struct iopkt *i Ink; 




Uchar i pri ; 




Uchar i efn ; 




Ushort i tcb ; 




Ushort i ln2 ; 




Ushort i ucb ; 




Ushort i fen ; 




struct { 




Ushort v iosb; 




struct rel_addr r iosb; 




} i_iosb; 




Ushort i ast ; 




struct { 




struct rel addr i buf; 




Ushort i cnt; ~~ 




struct rel_addr i soictl; 




Ushort i prm4; 




Ushort i prm5; 




Ushort i prm6; 




} i prm; 




}; " 



/* struct relocated address */ 
/* relocation bias */ 
/* displacement bias */ 



/* I/O pakcet field definition */ 

/* link to next I/O packet */ 

/* priority of the requesting task*/ 

/* event flag number */ 

/* TCB address of requester */ 

/* address of second LUT word */ 

/* address of UCB */ 

/* function code + modifier */ 

/* virtual address of IOSB */ 
/* relocated address of IOSB */ 

/* virtual address of AST routine */ 
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/* 

* filename: 
*/ 



RTHDATA.H 



/* DATA STRUCTURES FOR THE TELNET SERVER */ 



# define 

# define 

# define 

# define 

# define 

# define 

# define 

# define 

# define 



MAXCNT 1 
ctrl(x) 
strip(x) 
PTYNO 8 
BS 010 
TC_BIN 065 
TC_NEC 047 
SFSMC 02440 
MAXBYTVAL 



((x)&037) 
((x)&0177) 



/* character back space's ascii value*/ 



256 



/* EXOS-to-host requests are : */ 



# define 


TSCARON 





/* 


x2h 


# define 


RLCARON 


1 


/* 


x2h 


# define 


TSCAROFF 


2 


/* 


x2h 


# define 


TSREAD 


3 


/* 


x2h 


# define 


TSNVTFUNCT 


4 


/* 


x2h 


# define 


TSDOOPT 


5 


/* 


x2h 


# define 


TSDONTOPT 


6 


/* 


x2h 



carrier on (open connection) */ 
carrier on (for rlogin) */ 
carrier off(closed connection)*/ 
read data (net-to-host) */ 
IP, AYT, EC, EL, AO */ 
do BINARY, ECHO, etc */ 
don't BINARY, ECHO, etc */ 



/* Host-to-EXOS request codes ae as follows : */ 



TSWRITE 32 /* h2x: write data */ 
TSHANGUP 33 /* h2x: close connection */ 



# define 

# define 

/* 

* In reply message from the EXOS to the host, nm_reply may contain 

* the following values, for any request: 
*/ 



# define 


TSERRBADSOID 


32 


# define 


TSERRPENDING 


33 


# define 


TSERRCLOSING 


34 


# define 


TSERRBADREQ 


35 


# define 


TSERRTOOBIG 


36 


/* The NVTFUNCT 


's */ 






# define 


IP 


244 




# define 


AO 


245 




# define 


AYT 


246 




# define 


EC 


247 




# define 


EL 


248 





/* The terminal options */ 



# define 

# define 

# define 



TELOPT_BINARY 
TELOPT_ECHO 
TELOPT SGA 
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/* Command table structure */ 



struct cmd { 
TEXT 
int 
} cmdtab[ 



tsrqst; 
(*handler)(); 

] = ( 

{ TSCARON, caron}, 

{ RLCARON, caron}, 

{ TSCAROFF, bye}, 

{ TSREAD, zt_read }, 

{ TSNVTFUNCT, nvtfunct}, 

{ TSDOOPT, do_option}, 

{ TSDONTOPT, dont_option }, 

{ TSWRITE, wr_reply }, 





/* telnet server command */ 



} 



/* The following is the status structure for all the pty's */ 



struct status { 

short pty_number; 

short carrier_on; 

short rlogin; 

int reply pending; 



short echo_opt; 
short binary_opt; 
short sga opt; 
} pty_status[] = T 

{ 0,0,0,0,0,0,0 }, 

{ 1,0,0,0,0,0,0 }, 

{ 2,0,0,0,0,0,0 }, 

{ 3,0,0,0,0,0,0 }, 

{ 4,0,0,0,0,0,0 }, 

{ 5,0,0,0,0,0,0 }, 

{ 6,0,0,0,0,0,0 }, 

{ 7,0,0,0,0,0,0 }, 


}; 



/* pty_device no, */ 

/* if 1, then logged on */ 

/* if 1 then it is a remote login */ 

/* a counter whose int indicates no.*/ 

/* of pkts sent to EXOS, */ 

/* MAX value = MAXCNT */ 
/* If 1, then echo set */ 
/* If 1, then binary option set */ 
/* If 1, then sqa option set */ 



struct packet { 



struct 


packet *link; 


Ushort 


moreto op; 


Ushort 


tcb dummy; 


Ushort 


pty no; 


Ushort 


ucb dummy; 


Ushort 


i fen; 


Ushort 


request; 


Ushort 


byte cnt; 


char 


w data[32]; 



/* link word */ 

/* if 1 then more O/P to come 

/* always zero */ 

/* unit number */ 

/* UCB address */ 

/* always I0_TEL = 0177000 */ 

/* telnet request */ 

/* byte count */ 

/* write-data */ 
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/* @(#)socket.h 1.8 7/29/85 */ 
/* socket. h 4.16 



/* 



82/06/08 



*/ 



* GAP 1/11/85: WARNING - This file is included by both host 

* and board code. Make changes with extreme caution, and test 

* effects on both the host and board sides. 
*/ 



#ifdef 

#define 

#def ine 

^define 

#define 

#define 

#def ine 

#define 

#define 

#define 



BSD4dot2 

accept 

connect 

gethostname 

receive 

select 

send 

socket 

socketaddr 

shutdown 



#define htonl 
#define htons 
#define ntohl 
#def ine ntohs 
#define swab 
#endif BSD4dot2 

/* 

* Externally visible attributes of sockets. 
*/ 



ex_accept 

ex_connect 

ex_ge t ho s tname 

ex_receive 

ex_select 

ex_send 

ex_socket 

ex_socketaddr 

ex_shutdown 

ex_htonl 
ex_htons 
ex_ntohl 
ex_ntohs 
ex swab 



/* 



* Socket types. 
* 

* The kernel implement these abstract (session-layer) socket 

* services, with extra protocol on top of network services 

* if necessary. 
*/ 



#define SOCK_STREAM 1 

#define SOCK_DGRAM 2 

#define SOCKRAW 3 

#define SOCKRDM 4 

#define S0CK_ETH 5 

#def ine SOCK ICMP 6 



/* stream socket */ 

/* datagram socket */ 

/* raw-protocol interface */ 

/* reliably-delivered message */ 

/* link-mode access to e-net packets */ 

/* access to ICMP */ 



/* 






* Opti( 
*/ 
#define 


hi flags per-soc 


:ket . 


SO DEBUG 


0x01 


#define 


SO ACCEPTCONN 


0x02 


#define 


SO DdlTLINGER 


0x04 


#define 


SO KEEPALIVE 


0x08 


#de£ine 


SO D08TR0UTE 


0x10 


#define 


SO SMALL 


0x20 


#define 


SO REUSEADDR 


0x40 



/* turn on debugging info recording */ 

/* willing to accept connections */ 

/* don't linger on close */ 

/* keep connections alive */ 

/* just use interface addresses */ 

/* use smaller (1/2K) buffer quota */ 

/* permit local port ID duplication */ 



Sep 9 07; 48 1985 socket. h Page 2 



/* 

* Generic socket protocol format. 
* 

* Each process is normally operating in a protocol family, 

* whose protocols are used unless the process specifies otherwise. 

* Most families supply protocols to the basic socket types. When 

* protocols are not present in the family, the higher level (roughly 

* ISO session layer) code in the system layers on the protocols 

* to support the socket types. 
*/ 

struct sockproto { 

short sp_family; /* protocol family */ 

short sp_protocol; /* protocol within family */ 

}; 



/* unspecified */ 

/* UNIX internal protocol */ 

/* internetwork: UDP, TCP, etc. */ 

/* imp link protocols */ 

/* pup protocols: e.g. BSP */ 

/*' mit CHAOS protocols */ 

/* ois communication protocols */ 

/* nbs protocols */ 

/* european computer manufacturers 

/* datakit protocols */ 

/* CCITT protocols, X.25 etc */ 



#def ine 


PF UNSPEC 





#define 


PF UNIX 


1 


#def ine 


PF INET 


2 


#define 


PF IMPLINK 


3 


#define 


PF PUP 


4 


#define 


PF CHAOS 


5 


#def ine 


PF OISCP 


6 


#define 


PF NBS 


7 


#def ine 


PF ECMA 


8 


#define 


PF DATAKIT 


9 


#define 


PF CCITT 


10 



*/ 



/* 



* Generic socket address format 



* Each process is also operating in an address family, whose 

* addresses are assigned unless otherwise requested. The address 

* family used affects address properties: whether addresses are 

* externalized or internalized, location dependent or independent, etc 

* The address can be defined directly if it fits in 14 bytes, or 

* a pointer and length can be given to variable length data. 

* We give these as two different structures to allow initialization. 
*/ 

struct sockaddr { 

short sa_family; 
char sa data[l4]; 

1; 



/* address family */ 

/* up to 14 bytes of direct address */ 



/* 

* The 

* fami 

* are 
*/ 

#def ine 
#def ine 
#define 
#def ine 
#define 
#def ine 
#def ine 
#def ine 



first few address families correspond to protocol 
lies. Address families unrelated to protocol families 
also possible. 



AFJJNSPEC 

AFJJNIX 

AF_INET 

AF_IMPLINK 

AF_PUP 

AF_CHAOS 

AF_OISCP 

AF NBS 



/* unspecified */ 

/* local to host (pipes, portals) */ 

/* internetwork: UDP, TCP, etc. */ 

/* arpanet imp addresses */ 

/* pup protocols: e.g. BSP */ 

/* mit CHAOS protocols */ 

/* ois communication protocols */ 

/* nbs protocols */ 
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#define AF_ECMA 8 /* european computer manufacturers */ 

#define AF_DATAKIT 9 /* datakit protocols */ 

#de£ine AF_CCITT 10 /* CCITT protocols, X.25 etc */ 

#de£ine AF_ETHER 11 /* Ethernet Address */ 

#de£ine AF_COUNT 12 /* A count */ 

^define AF_ETYPEFILTER 13 /* Ethernet filter */ 

#def ine AF_MAX 14 

/* 

mwp: 

Sockaddr structure for link mode access to EXOS board. 

*/ 

#ifndef u_short 

#de£ine u_short unsigned short 

#endi£ 

#define sockaddr_link sad_link /* for compiler */ 
struct sockaddr_link { 

short sl_family; 

u_short sl_types[6]; 

short sl_zero; 

#ifdef ONBOARD 

struct enreq *sl_pndpkt; /* a part-empty pkt on this socket */ 
#endif 

1; 

/* a handy macro */ 

#define saptr(x) ((struct sockaddr_link *)(( (struct socket *)(x))->so pcb) ) 
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/* 
* filename: SOIOCTL.H 

*/ 



/* 



* This file defines all the equate symbols for socket ioctl 

* commands. These values are actually passed onto to the board, 

* hence should not be altered. 
*/ 



#define 


FIONREAD 


(127) 




#define 


FIONBIO 


(126) 




#define 


FIOASYNC 


(125) 




#define 


TIOCPKT 


(112) 




#define 


TIOCPKT 


DATA 




#define 


TIOCPKT" 


"FLUSHREAD 


#define 


TIOCPKT" 


"flushwrite 


#def ine 


TIOCPKT" 


"stop 




#define 


TIOCPKT" 


"start 




#define 


TIOCPKT" 


"nostop 




#def ine 


TIOCPKT] 


"dostop 




#define 


SIOCDONE 


(0) 


/* 


#define 


SIOCSKEEP 


(1) 


/* 


#define 


SIOCGKEEP 


(2) 


/* 


#define 


SIOCSLINGER 


(3) 


/* 


#define 


SIOCGLINGER 


(4) 


/* 


#define 


SIOCSENDOOB 


(5) 


/* 


#define 


SIOCRCVOOB 


(6) 


/* 


#define 


SIOCATMARK 


(7) 


/* 


#define 


SIOCSPGRP 


(8) 


/* 


#define 


SIOCGPGRP 


(9) 


/* 


#define 


SIOCADDRT 


(10) 


/* 


#define 


SIOCDELRT 


(11) 


/* 


#define 


SIOCCHGRT 


(12) 


/* 



/* on pty: set /clear packet mode */ 

0x00 /* data packet */ 

0x01 /* flush packet */ 

0x02 /* flush packet */ 

0x04 /* stop output */ 

0x08 /* start output */ 

0x10 /* no more A S, A Q */ 

0x20 /* now do ^S ^Q */ 

shutdown read/write on socket */ 

set keep alive */ 

inspect keep alive */ 

set linger time */ 

get linger time */ 

send out of band */ 

get out of band */ 

at out of band mark? */ 

set process group */ 

get process group */ 

add a routing table entry */ 

delete a routing table entry */ 

change a routing table entry */ 
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#de£ine ELMNTBUSY 1 
#define ELMNTFREE 
#define NULLPOINTER 



/* the element is busy */ 
/* the element is free */ 
/* it is pointing to null element */ 



#def ine MAXBUF 
#define BUFSIZE 
#define MAXIOSB 
#define MAXSOICTL 

#define SOLUN 20 
#define SOEFN 1 



2 /* max no of transfer buffer *7 

1024 /* size of each such buffer */ 

10 /* max no of 10 status block */ 

5 /* max no of SOictl structure */ 

/* EXOS0 LUN */ 
/* efn */ 



#define NOSOBUF -10 

#define NOSOIOSB -11 

#define NOSOICTL -12 

#def ine NOFREESOCKET -13 
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/* 

* filename: UNIDATA.H 
*/ 

/* 

* This file contains the data structures required for the ACP to 

* run on a UNIBUS machine PDP-11/24 
*/ 



#define POOL_BUFS 14 

#define ALLOCATED Oxl 

#define DEALLOCATED 0x0 

#define POOLBUFSIZE 1024 



/* 14Kb buffers each of size = BUFSIZE */ 



struct pool_im { 

Ushort state; 

struct iopkt *owner; 

}; 

struct pool_im pool_im[POOL_BUFS] = {0}; 



/* pool's image */ 



struct rel_addr rellbuf = {0}; /* relocated address of 1st 4kw of pool */ 

struct reladdr rel2buf = {0}; /* relocated address of 2nd 4kw of pool */ 

struct iopkt *sec_que = {0}; /■* sec_que for pkts not getting pool space */ 

unsigned int *umraddr = {0}; /* umr addr of umr of 1st 4kw of pool */ 

unsigned int zeucb = 0; /* storage for ZE0: UCB */ 



long phy_buf = 0; 

long unilbuf = 0; 

long uni2buf = 0; 

long uni msg = 0; 



/* physical address of pool */ 

/* 18-bit unibus address of 1st 4kw of pool */ 

/* 18-bit unibus address of 2nd 4kw of pool */ 

/* 18-bit unibus address of message area */ 
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/* 

* filename: ACPROOT.C 

*/ 

/* 

* This is the main root of the acp task™ It calls init() to make some local 

* initializations. 
*/ 

main() 

I 

initO; /* local initializations */ 

#ifdef DEBUG 

qio_write("0UT INI T M , 9, 040); 
#endif 

if (acpucbO) { 

#ifdef UNIBUS 

uni ini(); /* initialize unibus related stuff */ 
#endif 

do 

{ 

io_pkt = dqpktO; /* deque an user request */ 

action = 1; 

if ( io_pkt ){ /* if it's an revest *{ 

chn = PKT.i_prm6; /* get ch # if any */ 
switch ( io_pkt->i_fcn ){ /* check the request */ 

case I0_KIL: 
io_kill(); 
break; 

case I0_EXC|EX_0PN: 

iosb.cc = 1; iosb.lc = 0; 

iosb.nread = opench(CH_EXOS, PKT.i_prm4); 

if ( iosb.nread < 1 ) 

iosb.cc = IE_DFU; /* no free channel */ 
break; 

case I0_EXC | EX_CLS : 

iosb.cc = 1; iosb.lc = 0; 

if ( inrange(chn) && sametask(chn) ) 

iosb.cc = closech(chn); 
break; 
case I0_EXC | EX_INI : 
iosb.lc = 0; 
if (inrange(chn) && sametask(chn) && writeprv(chn) ) 

iosb.cc = exsetup(PKT.i_prm4); 
else 

iosb.cc = IE_PRI; /* priv or channel error */ 
break; 

default: 
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qio_write("error: EXOS not conf igured",27,040) ; 
iosb.cc = IE_DNR; /* device not ready */ 

} 

if ( action ) 

ackuser(io pkt); 

} 
jwhile ( !ex_db.ex_init); 
driveO; 

} 

else qio_write("error: EXOS dev not ready", 25, 040 ) ; 

} 
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/* 

* filename: ANSWER. C 
*/ 

/* 

* This function scans the entire reply message buffer starting from the next 

* to the last message buffer. For each buffer, it checks it's status field. 

* If it is owned by the host then it calls a function rprocess, to process 

* the reply and updates the status field. 
*/ 

answer( ) 
{ 

register int i; 

register struct msg ^current; 

register struct iopkt spending; 

#ifdef DEBUG 

qio_write("answer",7,040); 
#endif 

current = rmsg_area.ma_lastr; /* start where we left */ 

while (( current->nm_u.msg_hd.mh_status & 0x03 ) == ) /* reply for host */ 
{ 

mp = current ; 

switch(ex_mg.nm_request & 0x7F) { 
case SOSELECT: 
case SOSELWAKEUP: 

ex_sel.nm_proc «= 1; 

pending = getpend(( struct iopkt *)ex_sel.nm_proc) ; 
break; 
default: 

pending = getpend(( struct iopkt *)ex_mg.nm_userid); 
break; 

} 
/* check whether the reply was solicitated */ 

replyO; 

if ( pending ){ /* if £ t was solicitated */ 

i = pending->i prm.i_prm6; /* get channel # */ 

if ( inform ) J /* only if boards processing is */ 

ackuser(pending); /* over then acknowlege user */ 

ch_des[i].rundn_cnt — ; /* decrement I/O rundown count */ 

if(ch_mfor_close(i)){ /* is it marked for close?if so...*/ 
closech(i); /* ...try to close the channel */ 

} 

else 

#ifdef DEBUG 

qio_write( H unsolicitated reply", 20,040); 
#else 

; /* null statement */ 
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#endif 

rmsg_area.ma_lastr = current->msg link; 

nxtrst - &rmsg_area.ma_lastr->nm_u.msg_hd.mh status; 
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/* 



* filename: append. c 
*/ 

/* 

* appendO : this routine appends the requested io_pkt to the 

* I/O pending list just before sending it to EXOS 

* so that on return it can be double checked for 

* issueing IOFIN and differentiate between solicited 

* and unsolicited reply from EXOS. 
*/ 



int appendO 
{ 

register struct iopkt *next; 

if (!io_pend) 

io_pend = io_pkt; 
else 

{ 

next = io_pend; 
while ( next->i_lnk) 

next = next->i_lnk; 
next->i Ink = io pkt; 
} 
io pkt->i Ink = 0; 



/* reach till end of list */ 
/* append it to the end */ 
/* terminate the list */ 



/•k 

* getpendO : this routine is called to find a match in the list of 

* pending I/O request . If a match is found it returns 

* the I/O packet address. 
*/ 



struct iopkt *getpend(pkt ) 
struct iopkt *pkt; 
{ 

register struct iopkt *prev, "current; 

if (iopend) /* if at all any request is pending in EXOS */ 

prev = 0; 

current = io_pend; /* start searching from the begining */ 

while ((current != pkt) && (current->i_lnk != 0)) 

/* search for a match or end of list */ 
{ 

prev = current; 
current = current->i Ink; 
} 
if (current==pkt) /* if match */ 
{ 

if(prev) /* if it is not the first element in the list-/ 
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prev->i_lnk = current->i_lnk; 
else 

io_pend = current->i_lnk; 
return( current ) ; 

} 
else return(O); 

1 

else return(O); 

} 

* pend_list(pkt ) > This routine checks if the specified packet is in 

* the pending list and waiting for a reply from the board 

*/ 
/* 

* commenting out this whole routine 
pend_list(pkt) 

struct iopkt *pkt; 

{ 

register struct iopkt ^current; 



} 
*/ 



if(io_pend) { 

current = io_pend; ** start of pending list 

do { 

if (current == pkt) ** match? ** 
return(l); ** yes ** 
current = current->i_lnk; ** no - see next** 
} while(current); 

} 
return(O) ; 



ieie 
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/* 
* FILENAME: 

*/ 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 

# include 



body.c 

<header.c> 

<acproot.c> 

<drive.c> 

<setup.c> 

<init .c> 

<request .c> 

<append.c> 

<answer.c> 

<signaloob.c> 

<reply.c> 

<insert .c> 

<£indslot .c> 

<iokill.c> 

<cancel.c> 

<delay.c> 

<opench.c> 

<rth.c> 



#ifdef UNIBUS 

#include 
#endi£ 



<uniacp.c> 
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/* 

* filename: CANCEL. C 
*/ 



io_rundown(ch_no) /* cancel all outstanding request */ 

int ch_no; 

{ 

register int i; 

register struct iopkt *pkt ; 

/* close all channels except this one */ 
for ( i=0; KMAXCHANNEL; i++) 

if ((i != ch_no) && (ch_des[i]. ch_type != CH_FREE )) { 

ch_des[i] .rundn_cnt = 0; /* force rundown count to so that channel 

may be closed */ 
closech(i); 
} 

/* kill all outstanding requests from the user */ 

while(mrkcls) { /* kill all SOCLOSE packets */ 
pkt = mrkcls; 
mrkcls = mrkcls->i_lnk; 
iosb.cc = IE_ABO; 
ackuser(pkt ) ; 
} 

while(int_que) 

{ 

pkt = int_que; 

int_que = int_que->i_lnk; 

iosb.cc = IE_ABO; 

if((pkt~>i_fcn == IO_KIL) || (pkt->i_fcn == IO_TEL)) 

dealoc_b( pkt , s izeof ( pkt ) ) ; 
else 

ackuser(pkt) ; 

} 
while(io_pend) 

{ 
pkt - io_pend; 
io pend = io_pend->i_lnk; 
iosb.cc = IE_ABO; 
if((pkt->i_fcn == I0_KIL) || (pkt->i_fcn == IO_TEL)) 

dealoc_b(pkt ,sizeof (pkt)) ; 
else { 

#ifdef UNIBUS 

freepooKpkt ,0); /* must free the pool if allocated */ 
#endif 

ackuser(pkt) ; 
} 

} 
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/* 

* filename: DELAY. C 
*/ 

/* 

* The delay routine gives a time delay specified by the arguments passe< 

* tmag and tunit. If tunit = character 'T 1 (ticks) then a time dealy of 

* (tmag * 20 msec) is obtained. 

* If tunit='S', then a time dealy of tmag seconds is obtained. 
*/ 

delay( tmag , tunit ) 
int tmag; 
char tunit; 



{ 



register int a; 

if (tunit == 'T' || tunit == 't') 

a = l; 
else 

a = 2; /* default unit is seconds */ 

emt(MRKT,8,tmag,a,0); 
emt(WTSE,8); 
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/* 

* filename: DRIVE. C 
*/ 

* This is the main control flow routine of the ACP task. Its an 

* forever loop. While in the loop it first tries to dequeue a 

* packet from its external queue. These packets are nothing but 

* user's request queued by driver in packet form to the ACP task. 

* It returns from the DQPKT procedure iff some work is pending 

* for it in the form request from the user or reply from EXOS 

* or already pending requests in its internal queue. If it gets 

* a request from the user it first checks whether it needs EXOS's 

* participation or not. If not so, then it immedietly processes 

* it, otherwise queues it to its own internal FIFO queue. After 

* that it responds to all the pending reply from EXOS and then 

* processes the pending user request from its internal queue 

* subjected to the availability of free slot in the Host-to-EXOS 

* ring buffer queue. When it can not proceed any further it tries 

* to deque another packet thus completing a cycle. 

*/ 

int driveO 

{ 

FOREVER { /* fall into an eternal loop */ 

io_pkt = dqpktO; /* deque an I/O packet */ 

#ifdef DEBUG 

qio_write( "waked up", 8,040); 
#endif 

if ( io_pkt ) /* if any request */ 

{ 

int ack = 0; /* do not acknowlege user immedietly */ 

chn = PKT.i_prm6; 

switch ( io_pkt->i_fcn ) { 

case IO_EXC|EX_OPN: /* open an admin channel */ 
iosb.cc=l; iosb.lc=0; 

iosb.nread = opench( CH_EXOS, PKT.i_prm4) ; 
if (iosb.nread < 1) 

iosb.cc = IE_DFU; /* channel open error */ 
ack = 1; 
break; 

case IO_EXC | EX_INI : /* reinitialise EXOS */ 

iosb.cc=l; iosb.lc = 0; 
if ( inrange(chn) && sametask(chn) && writeprv(chn) ){ 

io_rundown(chn) ; /* abort all outstanding I/O */ 

iosb.cc = exsetup(PKT.i_prm4) ; 

} 
else iosb.cc = IEPRI; /* priv or channel error */ 
ack = 1; 
break; 
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case IO_EXC | EX_POS J /* position the memory relocator */ 
iosb.cc= 1; iosb.lc = 0; 
if ( inrange(chn) && sametask(chn) ){ 

ch_des[chn].ch_u.ch_addr.base = PKT.i_prm4; 

ch_des[chn] .ch_u.ch_addr.of £ = PKT.i_prm5; 

1 
else iosb.cc = IE_PRI; 
ack = 1; 
break; 

case IO_EXC | EX_CNF : /* get configuration message */ 
iosb.cc = 1; iosb.lc = 0; 
if ( inrange(chn) && sametask(chn) ) 

ucopy( (char *) &init_msg, &PKT.i_buf .rel_bias, 
sizeof( struct initjnsg )); 
else 

iosb.cc = IE_PRI; 
ack = 1; 
break; 

case I0_EXC | EX_CLS : /* close admin channel */ 
iosb.cc= 1; iosb.lc = 0; 
if ( inrange(chn) && sametask(chn) ) 

iosb.cc = closech(chn) ; 
ack=l; 
break; 

case IO_ACS|SA_USL: 

iosb.cc = 1; iosb.lc = 0; 

if ( inrange(chn) && sametask(chn) ) 

fin_pen(SA_USL); 
else 

iosb.cc = IE_PRI; 
ack = 1; 
break; 

case IO_ACS | SA_URG : /* prepare for urgent msg */ 
if ( inrange(chn) && sametask(chn) ) 

PKT.i_prm4 = ch_des[chn] ,ch_u.ch_soid; 
/* remember the socket id in the pending packet 

for future match on receive of urgent signal */ 
ch des[chn] .rundn_cnt++; /* increment I/O rundown count */ 
appendO; 
break; 

default: 

insertO; /* put the request in internal queue */ 

} 
if ( ack ) /* processed request, inform requester */ 

ackuser(io_pkt ); 
answerO; /* process reply msg queue */ 

/* loop to process pending request on availability of free slots */ 
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while ( int_que && ( free_slot = findslotO ) ) 
requestO; 

#ifdef UNIBUS 

put_sec_que(); /* put the secondary que onto the top of int que */ 
#endif ~~ 

} 
} 
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/* 



* filename: EXVAR.C 
*/ 



/* 



* This file defines all global variables for ACP task. 
*/ 



struct rmsg area 



rmsg area = {0}; 



#ifdef UNIBUS 

char align[(((sizeof (rmsg_area)/020) * 020) + 020) - sizeof (rmsgarea)] 
/* 

* align is defined to make sure the unibus address 

* corresponding to wmsg_area is so aligned that its 

* lower 4-bits are always zero - this is for the 

* convenience of the board to make the unibus address 

* 16-byte aligned. 
*/ 

#endif 



{0}; 



struct 


wmsg area 


wmsg area = 


{o}; 


struct 


SOictl 




SOictl 


{0}; 


struct 


iosb 




iosb = 


{0}; 


struct 


exctrl 




ex db = 


{0}; 


struct 


init ms 


»8 


init msg = 


{0}; 


struct 


iopkt 




*io pkt = 


{0}; 


struct 


iopkt 




*int que = 


{0}; 


struct 


iopkt 




*io pend = 


{0}; 


struct 


iopkt 




*mrkcls = 


(0); 


struct 


msg 




"frfree slot= 


(0); 


struct 


msg 




*mp = {0}; 




Uchar 






*nxtrst = {0}; 


Uchar 






*nxtwst = {0}; 


struct 


SOictl 




par am = {0} 


f 


Ushort 






inform = 1 ; 




Ushort 






action = 1; 




Ushort 






cmd = 0, subcmd = 0; 


int 






chn = 0; 




struct 


channel 


ch_ 


des[MAXCHANNEL] = 


(0); 


int 






exopnfrwrite = 0; 


int 






factor = sizeof ( struct headers ); 


int 






zeint = 0; 


/* interrupt vector address */ 


int 






zeport = 0; 


/* port offset */ 
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/* 

* filename: FINDSLOT.C 
*/ 

/* 

this function checks the status of the next available buffer 
in the queue and returns it if it belongs to host otherwise 
simply returns null pointer; 
*/ 

struct msg *findslot() 

{ 

register struct msg ^current; 

current = wmsg_area.ma_lastw; /* set to currently available buffer */ 
if ((current->nm_u.msg_hd.mh_status & 03) == ) /* check the ownership */ 

wmsg_area.ma_lastw = current->msg_link; /* set it to the next buffer */ 
nxtwst = &wmsg_area.ma_lastw->nm_u.msg_hd.mh_status; 
return( current ); 

} 
else 

return( ); /* return a null pointer */ 

} 
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/* 

* filename : HEADER. C 
*/ 

/* 

* this file includes entire environment files 
*/ 

/* define the machine type as RSX */ 
#define RSX 11 

# include <std.h> 

# include <rsx.h> 

# include <socket.h> 

# include <soioctl.h> 

# include <brdioctl.h> 

# include <in.h> 

# include <extypes.h> 

# include <defines.h> 

# include <exqio.h> 

# include <exos.h> 

# include <exiocmd.h> 

# include <iopkt.h> 

# include <channel.h> 

# include <init.h> 

# include <rthdata.h> 

# include <exreg.h> 

# include <exvar.c> 

#ifdef UNIBUS 

# include <unidata.h> 
#endif 
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/* 
* filename: INIT.C 



* This function initializes the global variables 
*/ 



initO 
{ 



} 



clear (&rmsg_area, sizeof rmsg_area ); 

clear (&wmsg_area, sizeof wmsg_area ); 

clear(ch_des,MAXCHANNEL"> v sizeof ( struct channel )); 

clear(&SOictl , sizeof SOictl ); 

clear(&iosb, sizeof iosb); 

clear (&ex_db, sizeof (ex_db)); 

clear(&init_msg, sizeof init_msg ); 

ex_db.ex_imsg = &init_msg; 

ex db.ex port = zeport; /* zeport = ex port address */ 



/* 
* This function clears a buffer p of length size 
*/ 

clear(p,size) 

register char *p; 
unsigned int size; 



{ 



int i ; 

for(i=0;i<size;i++) 
*p++=0 ; 
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/* 

* filename: 
*/ 



INSERT. C 



/* This routine enters a currently dequeued I/O packet into 

* the ACP's internal FIFO queue 
*/ 

insert( ) 

{ 

register struct iopkt *next ; 

#ifdef DEBUG 

qio_write("insert ",8,040); 
#endif 

if (!int_que) 

int_que = io_pkt; 

else 

{ 
next = int_que; 
while(next->i_lnk) 

next = next->i_lnk; 
next->i_lnk = io_pkt; 

} 
io pkt->i Ink = 0; 

} 

/* 

* CL LIST 



/* if the queue is empty */ 
/* make it first element */ 
/* else enter it at the end */ 



/* fnd the last element */ 
/* insert at the end */ 
/* move null to the last link */ 



*/ 
cl_list() 

{ 



This routine puts a pending IO_KIL or an SOCLOSE packet 
into the close list which is used to hold these packets 
untill all I/O on their corresponding channels is finished. 



register struct iopkt *next; 

if ( ! mrkcls) 

mrkcls = io_pkt; 
else { 

next = mrkcls; 

while (next->i_lnk) 

next = next->i_lnk; 

next->i Ink = io_pkt; 

} 
io_pkt->i_lnk = 0; 



/* 



*/ 



GET CLS 



This routine gets the SOCLOSE and the IO_KIL packets from 
the close list mrkcls and returns their address if a match 
is found corresponding to the channel number passed. 
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struct iopkt *get_cls(ch_no) 
int ch no; 

{ 

register struct iopkt *prev, ^current; 

if (mrkcls) /* if at all any request is pending in EXOS */ 

{ 
prev = 0; 

current = mrkcls; /* start searching from the begining */ 
while ((current->i_prm.i prm6 != ch_no) && (current->i_lnk != 0)) 

7* search for a match or end of list */ 

{ 

prev = current; 

current = current->i_lnk; 

1 
if (current->i prm.i prm6 == ch_no) /* if match */ 

{ 

if(prev) /* if it is not the first element in the list*/ 

prev->i_lnk = current->i_lnk; 
else 

mrkcls = current->i_lnk; 
return( current ) ; 

} 
else return(O); 

} 

else return(O); 
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/* 

* filename: IOKILL.C 
*/ 

/* 

* this routine closes all opened channel together with any opened 

* socket, after which it issues io-done for all the pending I/O 

* request in ACP. 
*/ 

remque( head_ptr) /* remove all request from this que */ 
struct iopkt **head ptr; 

{ 
register struct iopkt *prev, ^current , *next; 

#ifdef DEBUG 

qio_write("remque fl , 7,040); 
#endif 

prev =0; 

current = *head_ptr; 

while ( current ) 

{ 
next = current -> i_lnk; 
if (current->i tcb == io pkt->i tcb) /* I/O request by same task */ 

{ 
if(current->i_fcn == IO_KIL) /* if it is an IO_KIL packet */ 

dalpkt ( current ) ; /* then deallocate it */ 
else { 

iosb.cc = IE_ABO; /* return abort status to user */ 
current->i_ast= 0; /* make sure ast routine is not entered */ 
ackuser( current ); 
} 

/* deque the packet from the list */ 

if ( prev ) 

prev -> i_lnk = next; 
else 

*head_ptr = next; 

} 
else prev = current; 

current = next; /* check next */ 

} 
} 

int srchn ( tcb ) /* return channel number having same tcb */ 
Ushort tcb; 

{ 
register int i; 

#ifdef DEBUG 

qio_write("srchn M ,6,040); 
#endif 

for ( i=0; KMAXCHANNEL ; i++) /* search all channels */ 

if ( ( ch_des[i]. ch_tcb == tcb ) /* channel ownned by this task */ 

&& !ch mfor closed) ) /* ch not marked for close */ 
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{ 
if (ch_des[i].ch_type == CH_EXOS){ /* ch is Admin type */ 

#i£de£ DEBUG 

qio_write("close admin ch",15,040); 

#endif 

closech(i); /* just close the ch */ 

continue; /* search for next ch */ 

} 
else { 

ch_des[i].ch_flag |= CH_MCLOSE; /* mark it for close */ 
#i£def DEBUG 

qiowriteC'return ch", 10,040); 
#endif 

return ( i ); /* return this channel */ 

} 

} 
return (0); /* no more opened channel for this task */ 

} 
extern int cl_list(); 

int io_kill() 

{ 
register int ch_no; 

/* 

* check if there is any opened channel for this task. If so then 

* get channel # and issue SOCLOSE request and exit. ( in the 

* reply routine if it is a reply to SOCLOSE then it checks 

* whether the I/O function code in the io packet is IO_KIL, and 

* if so instead of issuing IODONE it again insert the packet to 

* the internal I/O request queue pointed by int_que thus allowing 

* the ACP to close the second socket, if any). 

* Else if there is no opened channel for this task then it goes to 

* kill all outstanding I/O ( whether the request has been issued 

* to the board or not). Then it issues an IODONE for the IO_KIL 

* request packet. 
*/ 

#ifdef DEBUG 

qio_write( ,, iokill ,, ,7,040); 
#endif 

if ( ch_no = srchn( io_pkt->i_tcb ) ){ 
#ifdef DEBUG 

qio_write("close ch",9,040); 
#endif 

PKT.i_prm6 = ch_no; 

ex_mg.nm_soid = ch_des[ch_no] .ch_u.ch_soid; 

ex_mg.mh_length = sizeof ( struct messages ) - factor; 

ex_mg.nm_request = SOCLOSE; 

return (1); /* send request to board */ 

} 
else /* no more channel remains opened for this task */ 

{ 
#ifdef DEBUG 
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qio_write("kill all pending I/O", 20, 040); 
#endi£ 

remque(&int_que) ; /* remove all pending requests */ 

/* donot remove outstandig requests as their replies will come from the board */ 
dalpkt(io_pkt); /* deallocate the dummy I/O packet */ 
action = 0; /* do not take any action after this */ 
return( IE ABO ); /* reply user with termination status */ 
} 

} 
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/* 

* filename: OPENCH.C 
*/ 

/* 

* this routine first check the privilege of the task, if neccessary 

* and then finds a free channel and fils up few fields such as 

* channel type, ch_flag ( mode and protection ) and the tcb field. 

* If either there is privilege violation or no channel free it is 

* immedietly informed to the caller by returning a negative value. 

* If everything is fine it returns a channel number to the caller. 
*/ 

int opench( dev, mode) 
int dev, mode; 

{ 
register int i, priv_flag = 0; 

priv_flag = getpriv(io_pkt->i_tcb); /* get privlege info */ 

/* Now get a free channel omitting the zeroth one so that 
channel # cannot be zero */ 

for ( i = 1; i < MAXCHANNEL; i++ ) 
if ( ch_des[i].ch_type == CH_FREE ){ 

ch_des[i].ch_type = dev; /* either CH_EXOS or CH_SOCKET */ 
ch_des[i] .ch_tcb = io_pkt->i_tcb; /* tcb address of the requester*/ 
ch_des[i] .rundn_cnt = 0; /* set initial rundown count as */ 
if ( mode == CH_WRITE ) 

ch_des[i].ch_flag |= CH_WRITE; 
if ( priv_flag ) 

ch_des[i].ch_flag |= CH_PRIV; 
return (i); /* return channel # */ 

} 
return(lE_DFU) ; /* return no free channel */ 

1 

/* 

* function closech(ch_no) frees an open channel unconditionally 

* by clearing all its field; 
*/ 

extern struct iopkt *get_cls(); 

int closech( ch_no) 
int ch no; 

{ 

register struct iopkt *p; 

if ( inrange(ch_no) && ( sametask(ch_no) | | 

(io_pkt->i_fcn == I0_KIL) | | ch_mfor_close(ch_no) ) ) 

{ 

if(ch_des[ ch_no ]. rundn_cnt > 0) { /* I/O is pending on this channel*/ 
ch_des[ ch_no ].ch_flag |= CH_MCLOSE; /* then mark it for close */ 
return(l) ; 
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} 
else { 

ch_des[ ch_no ]. ch_type = CH_FREE; 

ch_d.es [ ch_no ]. ch_flag = 0; 

ch_des[ ch_no ]. ch_tcb = 0; 

ch_des[ ch_no ]. ch_u. ch_addr. base = 0; 

ch_des[ ch_no ]. ch_u. ch_addr. off = 0; 

/* now get the packets from the close list, if any, and iodone them */ 

while(p = get_cls(ch_no) ) 

ackuser(p); 
return (1); 
} 



} 



} 
else return (IE PRI); /* privilege or ownership error */ 
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/* 

* replyO -> this routine post process the request to the board 
*/ 

int replyO 

c 

register int cmd = 0; 
register int cnt; 
register char *pf; 

#ifdef DEBUG 

qio_wr i t e ( "REPLY" , 6 , 040 ) ; 
#endif 

switch(cmd = (int) ex_mg.nm_request & 0x7F) { /* the request code */ 
case SOSELECT: 
case SOSELWAKEUP: 

io_pkt = (struct iopkt *)ex_sel.nm_proc; 

break; 
default: 

io_pkt = (struct iopkt *)ex_mg.nm_userid; 
break; 
} 
chn = PKT.i_prm6; 

iosb.lc = ex_mg.nm_reply; /* board reply status */ 

iosb.cc =1; /* qio success */ 

iosb.nread = 0; 
inform =1; /* acknowledge the user immedietly */ 

switch ( cmd ){ 

case NET_UL0AD: 

/* copy the content of nm_xmbyte first into a local buffer and 
then stick this byte to the first byte of the user buffer 
and then fall through the code of NET_DL0AD */ 

bcopy((char *)&ex_dl.nm_xmbyte, (char *)&param, sizeof (char)); 
ucopy((char *) &param, &PKT.i_buf .rel_bias, 
sizeof ( char )); 

case NET_DLOAD: 

iosb.nread = ex_dl.nm_length; /* no of bytes read */ 
ch_des[chn].ch_u.ch_addr.off += iosb.nread; 

#ifdef UNIBUS 

freepool(io_pkt,((cmd == NET_UL0AD) ? 1 : 0)); 
#endif 

break; 

case NET START: 



case NET_GSTAT: 
case NET RSTAT: 
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case NET_SARP: 
case NET_GARP: 
case NET_DARP: 

case NET_ADDRT: 
case NET_DELRT: 
case NET_SHOWRT: 
case NET_DISPRT: 

#ifdef UNI BUS 

freepool(io_pkt,l); /* consider all as read requests */ 
#endif 

break; 

case SOSOCKET: 

if ( iosb.lc == ){ 

ch_des[chn].ch_u.ch_soid = ex_cmd.nm_soid; 
iosb.nread = chn; /* return channel # */ 

1 
break; 
case SOACCEPT: 
case SOCONNECT: 
case SOSKTADDR: 

if ( ex cmd.nm_isaddr ){ 

bcopyT(char *)&ex_cmd.nm_saddr, (char *)&param.sa, 

sizeof ( struct sockaddr )); 
ucopy((char *) &param, &PKT.i_soictl .rel_bias, 
sizeof ( struct sockaddr)); 

} 
break; 

case SOSEND: 

iosb.nread = ex_pkt.nm_count; 

#ifdef UNI BUS 

freepool(io_pkt,0); /* write request so no Xfer involved here */ 
#endif 

break; 

case SORECEIVE: 

iosb.nread = ex_pkt .nm_count ; 
if ( ex_pkt .nm_isaddr ){ 

bcopy((char *)&ex_pkt .nm_saddr, (char *)&param.sa, 

sizeof ( struct sockaddr)); 
if ( PKT.i_soictl.rel_bias ) 

ucopy((char *)&param, &PKT.i_soictl.rel_bias, 
sizeof ( struct sockaddr )); 
} 

#ifdef UNIBUS 

f reepool ( io_pkt , 1 ) ; 
#endif 

break; 
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case SOSELWAKEUP: /* socket ready for I/O */ 
/* 

In this case the I/O packet address is returned in the 
nm_proc field of Sock_select structure in the SELECT 
request to the board, nm userid field is not used here. 
*/ 
iosb.nread = chn; 
break; 

case SOSELECT: 

PKT.i_prm5 &= -NOREPLY; /* reply has indeed come ! */ 
if(PKT.i_prm5 & UNSELECT) { /* if unselect is requested */ 

iosb.nread = chn; /* acknowledge the user normally */ 

break; 

} 

if(!ex_sel.nm_reply) { /* not ready yet */ 
inform =0; /* donot inform user */ 

io_pkt->i_lnk = io_pend; /* put back the packet in the */ 
io_pend = io_pkt; /* pending list */ 

else 

iosb.nread = chn; /* return channel # in 2nd IOSB word */ 
break; 

case SOCLOSE: 

if((io_pkt->i_fcn == IO_KIL)) { /* issued by iojdll */ 

io_pkt->i_lnk = int_que; /* put it in internal Q again */ 
int_que = io_pkt; 

else 

cl_list(); /* put the close packet in the close list */ 
inform = 0; /* donot inform user right now */ 

ch_des[chn].rundn_cnt— ;/* decrement I/O rundown count as this I/O */ 

/* is to be considered done */ 
fin_pen(SA_USL);/* remove select pkts from the pending list */ 
fin_pen(SA_ROO);/* remove oob pkts from the pending list */ 
closech(chn); /* close shop in ACP */ 

break; 



case SOIOCTL: 

switch ( ex_ctl.nm_ioccmd ){ 

case SIOCRCVOOB: 

bcopy(ex_ctl.nm_iocdata, &param.hassa, sizeof (char)); 
ucopy((char *) &param, &PKT.i_soictl.rel_bias, 

sizeof ( char )); 
break; 

case SIOCGKEEP: 

case SIOCGLINGER: 

case SIOCATMARK: 

case SIOCGPGRP: 

param.hassa = *( short *) ex_ctl.nm_iocdata} 
ucopy((char *) &param, &PKT.i_soictl.rel_bias, 
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sizeof ( short )); 
break; 

case FIONREADJ 

bcopy(ex_ctl.nm_iocdata,&param.hassa, sizeof (long)); 
ucopy((char *) &param, &io_pkt.i_prm.i_soictl.rel_bias, 

sizeof ( long )); 
break; 

default: 
break; 

} 
break; 

case SOHASOOB: 
fin_pen(SA_URG); 
inform = 0; 
break; 



/* give a signaloob to the user */ 



1 



case TSCOMMAND: 
dispatch(&ex_tel ) ; 
inform = 0; 
break; 



/* telnet server command */ 

/* donot do any IODONE on this packet */ 



case NET_PRINTF: 
case NET_PANIC: 

pf = &mp->nm_u.nm_printf .nm_prdata; 

for(cnt=0;((* p f != '\n') && (*pf ! = f \0' ));cnt++,pf++) ; 

qio_write(&mp->nm_u.nm printf.nm prdata,cnt ,0); 

if(*pf == 'Xn') 

qio_write("\r\n",2,0); 
break; 

def aut : 
break; 



} 



ex_hd.mh_length = sizeof ( union exos_u ) - sizeof ( struct headers); 
ex_hd.mh_status |= MQ_EXOS; /* change ownership */ 
write_port(PORTB, 0); /* inform EXOS */ 
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/* 

* filename; REQUEST.C 
*/ 



#ifdef UNIBUS 

extern long getpool(); 
#endif 

extern long absadrO; 

/* 

* int admin () 
*/ 



int admin () 
{ 

#ifdef DEBUG 

qio_write("ADMIN",6,040); 
#endif 

if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 

#ifdef UNIBUS 

if(PKT.i_cnt > POOLBUFSIZE) 

return(lE_SPC); /* return illegal buffer */ 
ffendit 

switch ( cmd ){ 

case IO _ WLb! '* ^^ belng thiS is e( * uated with I0 _ WLB */ 

ex dl.mh_length = sizeof( struct net dload ) - factor; 
if ( cmd == I0_WLB ){ ~ ' 

if ( Iwriteprv(chn) ) return (IE_PRI); 

ex_dl.nm_request = NET_DLOAD; 

#ifdef UNIBUS 

ex_dl.nm_ source = getpool(io pkt.l): 
#endif - 

} 
else { 

#ifdef UNIBUS 

ex_dl.nm_source = getpooKio pkt,0); 

#endif ~~ 

ex_dl.nm_request = NETJJLOAD; 
ex_dl.nm_length = PKT.i_cnt; 
#ifndef UNIBUS 
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ex_dl.nm_source = absadr( & PKT.i buf ); 



#endif 



ex_dl.nm_dest.base = ch_des[chn] .ch_u.ch_addr.base; 
ex_dl.nm_dest.off = ch_des[chn].ch_u.ch_addr.off ; 
break; 

case IO_EXC: 

switch ( subcmd ){ 

case BRDSTART: 

if ( writeprv(chn) ){ 

ex_hd.mh_length = sizeof (struct net_start) - factor; 
ex_str.nm_request = NET_START; 
ex_str.nm_sal = PKT.i_prm4; 
ex_str.nm_sa2 = PKT.i_prm5; 

else return (IE_PRI); 
break; 



case NET_GSTAT: 
case NET_RSTAT: 

case NET_SARP: 
case NET_GARP: 
case NET_DARP: 

case NET_ADDRT: 
case NET_DELRT: 
case NET_SHOWRT: 
case NET_DISPRT: 

ex_hd.mh_length = sizeof ( struct Sock_pkt ) - factor; 

ex_pkt.nm_soid = 0; 

ex_pkt.nm_request= subcmd; 

#ifdef UNI BUS 

ex_pkt.nm_bufaddr = getpool(io pkt,l); 



#else 
#endif 



ex_pkt.nm_bufaddr= absadr(&PKT.i buf); 



ex_pkt.nm_count = PKT.i_cnt; 

ex_pkt.nm_isaddr = 0; ~" 

switch ( subcmd ){ /* check for write protection */ 

case NET_RSTAT: 

case NET_SARP: 
case NET_DARP: 

case NET_ADDRT: 
case NET_DELRT: 

examineO; 
if (Iwriteprv(chn)) 
return (IE PRI); 
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default:; 
} 
break; 



default: 

return IE_IFC; /* illegal function */ 

break; 

default: 
break; 

1 
return(l); 

} 

else return (IE PRI); 
} 

examineC ) 

c 

/* a dummy routine to set a breakpoint */ 
) 

int access () 
{ 

if ( subemd == SOSOCKET ) 

if ( chn = opench( CH_S0CKET, CH_WRITE )) 

PKT.i_prm6 = chn; /* store the channel # in I/O packet*/ 
else return (IE_DFU); /* channel open error */ 

else 

if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 

ex_mg.nm_soid = ch des[chn].ch_u.ch_soid; /* get socket id */ 
else return (lE_PRl7; /* error condition */ 

if { (subemd != SOCLOSE) && (subemd != SOSELECT)) /* no soictl struct */ 
if ( PKT.i_soictl.rel_bias) 

scopy(&PKT.i_soictl.rel_bias, sizeof (struct SOictl)); 

/* copy SOictl buffer from user space to my space in var param */ 
else return (IE_BAD); /* invalid param */ 

switch( subemd ){ 

case SOSOCKET: 
case SOACCEPT: 
case SOCONNECT: 
case SOSKTADDR: 

ex_hd.mh_length = sizeof ( struct Sock_cmd ) - factor; 

if ( ex cmd.nm_isaddr = param. hassa ) 

bcopyT &param.sa, &ex_cmd.nm_saddr, sizeof (struct sockaddr)); 

if ( ex cmd.nm_isproto = param. hassp ) 

bcopy(&param.sp,&ex_cmd.nm_sproto, sizeof ( struct sockproto)); 

ex_cmd.nm_type = param. type; 

ex_cmd.nm_options - param. opt ions; 

ex_cmd.nm_iamroot = ((ch_des[chnLch_flag & CH_PRIV) ? 1 : ); 

break; 
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case SOCLOSE: 

ex_mg.mh_length = sizeof ( struct messages ) - factor; 
break; 

case SOSELECT: 

ex_sel.mh_length = sizeof ( struct Sock_select) - factor; 
ex_sel.nm_rw = PKT.i_prm4 +1; /* read = 1 and write = 2 */ 
ex_sel.nm_proc = ((Ushort)io_pkt » 1) & 0x7FFF; 

/* pass the pkt address with msb */ 
PKT.i_prm5 |= NOREPLY ; /* indicate no reply initially */ 
break; 

default: 

return (IE IFC); /* unknown command */ 
} 
ex_nig.nm_request = subcmd; 
return (1); 
} 

/* 

* int transfer() 
*/ 

int transferO 
{ 
if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 

#ifdef UNIBUS 

if(PKT.i_cnt > POOLBUFSIZE) 

retum(lE_SPC); /* return illegal buffer */ 
#endif 

ex_pkt.mh_length = sizeof ( struct Sock_pkt ) - factor; 
ex_pkt.nm_soid = ch_des[chn] .ch_u.ch_soid; 
ex_pkt.nm_count = PKT.i_cnt; 

#ifndef UNIBUS 

ex_pkt.nm_bufaddr= absadr(&PKT.i_buf ) ; 
#endif 

if { (subcmd == SOSEND) | | (subcmd == SORECEIVE) ) 
{ 
scopy( &PKT.i_soictl.rel_bias, sizeof (struct SOictl)); 
if ( ex pkt.nm_isaddr = param.hassa ) 

bcopyT&param.sa, &ex_pkt. nmsaddr, sizeof ( struct sockaddr )); 

if ( (subcmd == SOSEND) | | (subcmd == IXWRS) ) { 
ex_pkt.nm_request = SOSEND; 

#ifdef UNIBUS 

ex_pkt.nm_bufaddr = getpool(io_pkt ,1); 
#endif 
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1 
else { 

ex_pkt.nm_request = SORECEIVE; 

#ifdef UNIBUS 

ex_pkt.nm_bufaddr = get pool (io_pkt,0); 
#endif 

} 
return(l); 
} 
else return (IE PRI); 
} 

/* t 

* int excontrolO 
*/ 

int excontrolO 
{ 
char achar; 
short anint; 
struct rtentry route; 

if ( inrange(chn) && sametask(chn) && !ch_mfor_close(chn) ) 

ex_ctl.mh_length = sizeof( struct Sock_pkt ) - factor; 

ex_ctl.nm_request= SOIOCTL; 

ex_ctl.nm_soid = ch_des[chn].ch_u.ch_soid; 

switch (subcmd) { 
case FIONREAD: 
case FIONBIO: 
case FIOASYNC: 

ex_ctl.nm_ioccmd = _IOXFIO( subcmd); 
break; 
default: 

ex_ctl.nm_ioccmd = _IOXSIO( subcmd ) ; 
break; 
1 

scopy( &PKT.i_soictl.rel_bias, sizeof ( struct sockaddr )); 
switch( subcmd ){ 

case SIOCGKEEP: 
case SIOCGLINGER: 
case SI0CRCV00B: 
case SIOCATMARK: 
case SIOCGPGRP: 
case FIONREAD: 
break; 

case SIOCSENDOOB: 

bcopy(&param.hassa, &achar, sizeof ( achar )); 



Oct 30 16:12 1985 request. c Page 6 



ex_ctl.nm_iocdata[0] = achar; 
break; 

case SIOCSLINGER: 
case SIOCSKEEP: 
case SIOCSPGRP: 
case SIOCDONE: 
case FIONBIO: 
case FIOASYNC: 

bcopy(&param.hassa, &anint, sizeof ( anint )); 

*( short *)ex_ctl.nm_iocdata = anint; 

break; 



} 



default: 

return(lE IFC); 



} 



} 

else return (IE_PRI); 
return(l); 



/* unknown comand */ 



/* if not inrange or sametask */ 
/* else return success */ 



* int request () 
*/ 

requestO 
{ 

register int ex_send = 1; 

#ifdef DEBUG 

qio_write("request",8,040); 
#endif 



io_pkt= int_que; /* deque an packet from internal queue */ 

int_que = int_que->i_lnk; 

io_pkt->i_lnk = 0; 

cmd = io_pkt->i_fcn & OxffOO; /* mask lower 8 bits */ 

subcmd = io_pkt->i_fcn & OxOOff;/* mask off upper 8 bits */ 

mp = free_slot; 

chn = PKT.i_prm6; /* channel # if any */ 

clearC&param.hassa, sizeof ( struct SOictl)); 

action = 1; /* take action always unless not restricted by any routine */ 



if(io_pkt->i_fcn == IOJCIL) { 
ex_send = io_kill(); 
chn = PKT.i prm6; 

1 
else 

switch ( cmd ){ 



/* re-initaialize ch # as IO_CAN does*/ 
/*' not have any in it */ 



case IO_WLB: 
case IO_RLB: 
case IO_EXC: 

ex_send = adminO; 

break; 



/* write into EXOS's memory */ 
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} 



case IO_ACS: 

ex_send = accessO; 
break; 

case I0_XFR: 

ex_send = transferO; 
break; 

case I0_S0C: 

ex_send = excontrolO; 
break; 

case I0_TEL: 

ex_send = telnetO; 
break; 

case TS_HNG: 

exsend = hangupO; 
break; 

default: 

ex send = IE PRI; 



/* socket access operation */ 



/* data transfer with the socket */ 



/* real socket control operations */ 



/* error no such command */ 



} 



if(action) /* send request or acknowlege user */ 
i£(ex_send > 0){ 

ex_mg.nm_userid = ( long ) io_pkt; 
ex_mg.nm_reply = 0; 
ex_hd.mh_status |= MQ_EX0S; 

if(io_pkt){ /* if io_pkt == do not append */ 
appendO; 

ch des[chn].rundn cnt++; /* increment rundown count */ 
} " 
write_port( PORTB, 0); /* interrupt EXOS */ 

return (1); /* success */ 

} 
else { /* if ex_send < */ 

iosb.cc = ex_send; /* return errorcode */ 

ackuser ( io_pkt ) ; 

wmsg_area.ma_lastw = mp; /* release unused slot */ 
nxtwst = &wmsg area. ma lastw->nm u.msg hd.mh status; 
} " " 

else /* if not action */ 

{ 

wmsg_area.ma_lastw = mp; 

nxtwst = &wmsg area. ma lastw->nm u.msg hd.mh status; 
} " - - - 



/* bcopyO : copy two buffers by count */ 

int bcopy( from, to, count) 
char *from, *to; 
int count; 
{ 
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for ( ; count > 0; count — ) 
*to++ = *£rom++; 
} 
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/* 

* filename: RTH.C 
*/ 

/* 

* Code for RTH -> the telnet server on RSX-11M - The different routines 

*/ 

/* 

* DISPATCH — > this routine calls the relevant routine according to the 

* received telnet command 
*/ 

struct cmd *getcmd(); 

dispatch(ser) 

struct Telnet_srvr *ser; 

{ 

register struct cmd *c; 

#ifdef DEBUG 

qio_write("in dispatch", 11, 040) ; 
#endif 

if(c = getcmd(ser->nm_tsrqst)) 

(*c->handler)(ser,0); /* the 2nd param is for do-option routine */ 

#ifdef DEBUG 

qio_write("out dispatch ",12,040); 
#endif 

} 

/* 

* GETCMD — > this routine searches for the relevant routine according to 

* the given telnet command 
*/ 

struct cmd * 
getcmd(req) 
TEXT req; 

{ 

register int i; 

register struct cmd v<, tab = cmdtab; 

#ifdef DEBUG 

qio_write("in getcmd",9,040) ; 
#endif 

for(i=0;i<PTYNO;i++,tab++) { 

if (tab->tsrqst == req) { 

#ifdef DEBUG 

qio_write("out getcmd ",10,040); 
#endif 
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return(tab); 
} 
} 
if(i == PTYNO) 

return(O) ; 
} 

/* 
* TELNET — > this routine sends a message to the EXOS for telnet. 
*/ 

telnet () 

{ 

register struct packet *p = (struct packet *)io_pkt; 
register struct status *st = ptystatus + p->pty_no; 

#ifdef DEBUG 

qio_write("in telnet", 9, 040) ; 
#endif 

action = 0; /* assuming we are not sending any request to EXOS */ 
i f ( p->by t e_cn t ) 

if (st->carrier_on) { 

if ( !st->reply_pending) { 

p->request = TSWRITE; 

wr_to_exos(p) ; /* write into the wmsg_area */ 
st->reply_pending = 1;/* reply is now pending*/ 
io_pkt =0; /* so that it is'nt put in the */ 
/* pending queue of the ACP */ 

} 
else { 

#ifde£ DEBUG 

qio_write{"** SEVERE ERROR ** - pkt from ZT before reply", 45, 040 ) ; 
#endif 

io_pkt = 0; 
} 
} 
else { 
/* 

* If not logged on then packet cannot go to 

* EXOS and hence we give an O/P interrupt and 

* also deallocate the packet from ZT, 
*/ 

if (p->moreto_op) ; 

out_int(p->pty_no) ; 

#ifdef DEBUG 

qio_write("pkt from ZT lost as not logged in", 33, 040); 
#endif 

} 

else { 

/* then it is a dummy packet */ 
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if ( ! st->reply_pending) 
/* then we won't get a write_reply from EXOS so give an 0/P int. */ 

out int(p->pty no); 
} 
dealoc_b(p,sizeof( struct packet)); /* deallocate packet from ZT */ 

#ifdef DEBUG 

qio_write("out telnet ",10,040); 
#endif 

return(l); /* ex_send should always be 1 for telnet */ 

} /* end of wr_to_exos */ 

/* 

* WR_T0 EXOS ~ This routine fills up the wmsg area for telnet 
*/ 

wr_to_exos(p) 
struct packet *p; 
{ 

action = 1; /* we are sending a request to EXOS */ 
ex_tel.mh_length = sizeof (struct Telnet_srvr) - factor; 
ex_tel.nm_soid = p->pty_no; 
ex_tel.nm_request = TSCOMMAND; 
ex_tel.nm_tsrqst = p->request; 
ex_tel.nm_tsdlen = p->byte_cnt; 

bcopy(p->w_data,ex tel.nm tsdata,ex tel.nm tsdlen); 



/* 
* CARON 
*/ 

caron(p) /* TSCARON/RLCARON */ 

struct Telnet srvr *p; 

{ 

register struct status *st - pty_status + p->nm_soid; 

char c = ctrl( 'C' ); ~~ 

#ifdef DEBUG 

qio_write("in caron ",8,040); 
#endif 

if (st->carrier_on) 

return(O) ; 
else 

if (set_car_on(st->pty_number)){ /* enable unit and set got carrer */ 
st->carrier_on = 1; /* say carrier on */ 
qio zt(p->nm soid,&c,l); 
} 

#ifde£ DEBUG 

qio write("out caron", 9, 040) ; 
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#endif 
1 

/* 

* BYE 
*/ 

static char *bye_msg = "BYE\r "; 

bye(p) /* TSCAROFF */ 

struct Telnet srvr *p; 

{ 

register struct status *st = ptystatus + p->nm_soid; 

char c = ctrK'C* ); ~ 

#ifdef DEBUG 

qio_write("in bye ",6,040); 
#endif 

if ( ! st->carrier_on) 

return(O) ; 
else { 

st->carrier_on = 0; /* indicate carrier off */ 

qio_zt(p->nm_soid,&c,l); /* send a ~C first */ 

qio zt(p->nm soid,bye msg,4); 
} 

#ifdef DEBUG 

qio_write("out bye", 7, 040); 
#endif 

} 

/* 

* ZT READ 
*/ 

zt_read(p) /* TSREAD */ 

struct Telnet srvr *p; 

C 

register struct status *st = ptystatus + p->nm_soid; 

#ifdef DEBUG 

qio_write("in ztread ",10,040); 
#endif 

if ( ! st->carrier_on) 

return(O); 
else { 

#ifdef DEBUG 

{ 

int i ; 

i = 0; 

i = '0' + p->nm soid; 
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qio write(&i,2,040); 

} 
#endif 

qio zt(p->nm soid,p->nm tsdata,p->nm tsdlen); 
} 

#ifdef DEBUG 

qio_write("out zt_read" , 11 ,040) ; 
#endif 

} 

/* 

* WRITE REPLY 
*/ 

wr_reply(p) /* TSWRITE (x2h) */ 

struct Telnet srvr *p; 

{ 

register struct status *st = ptystatus + p->nm_soid; 

#i£de£ DEBUG 

qio_write("in wr_reply",l 1,040) ; 
#endif 

if ( ! st->carrier_on) 

return(O); 
else { 

if(p->nm_reply == TSERRPENDING) 

return(O); 
else { 

st->reply_pending = 0; 
out int(p->nm soid); 
} " 
} 

#ifdef DEBUG 

qio_write("out wr_reply ",12,040); 
#endif 

1 

/* 

* NVTFUNCT 
*/ 

nvtfunct(p) /* TSNVTFUNCT */ 

struct Telnet srvr *p; 

{ 

char ch; 

register struct status *st = ptystatus + p->nm_soid; 

#i£de£ DEBUG 

qio_write("in nvtfunct" , 11 ,040) ; 
#endif 
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if ( ! st->carrier_on) 

return(O); 
else { 

switch (p->nm_tsdata[0]) { 
case AO-MAXBYTVAL : 

ch = ctrK'O 1 ); 
break; 
case EC-MAXBYTVAL : 
ch = BS; 
break; 
case EL-MAXBYTVAL : 

ch = ctrK'U'); 
break; 
case IP-MAXBYTVAL : 

ch = ctrK'C 1 ); 
break; 
case AYT-MAXBYTVAL: 
default: 

return; 
} /* end of switch */ 
qio_zt(p->nm_soid,&ch, 1 ) ; 
} /* end of else */ 

#ifdef DEBUG 

qio_write("out nvtfunct ",12,040); 
#endif 

} /* end of nvtfunct () */ 

/* 
* DOOPTION 

*/ 

do_option(p,t) /* TSDOOPTION */ 

struct Telnet_srvr *p; 

int t; 

{ 

static char stadd[2]; 

register int i=0; 

register struct status *st = ptystatus + p->nm_soid; 

#ifdef DEBUG 

qio_write("in do_option ",12,040); 
#endif 

if ( ! st->carrier_on) 

return(O) ; 
else { 

switch (p->nm_tsdata[0] ) { 
case TELOPT_BINARY: { 

stadd[0] = TC_BIN; 

if(t) { /* if t = 1 then it is a dont_option */ 
st->binary_opt = 0; 
staddtl] = 0; 
break; 
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} 
else if(!t) { 

st->binary_opt = 1; 
stadd[l] = 1; 
break; 
} 
1 
case TELOPT_ECHO: { 

stadd[0] = TC_NEC; 

if(t) { /* if t = 1, it is a dont option */ 
st->echo_opt = 0; 
stadd[l] = 1; 
break; 

} 
else if(!t) { 

st->echo_opt = 1; 
stadd[l]" = 0; 
break; 
} 
} 
case TELOPT_SGA: 
default: 

return; 
} /* end of switch */ 

qio_smc(p->nm_soid,stadd) ; 
} /* end of else */ 

#ifdef DEBUG 

qio_write("out do_option", 13,040) ; 
#endif 

} /* end of function */ 

/* 
* DONT OPTION 

*/ 

dont_option(p) /* TSDONTOPTION */ 

struct Telnet_srvr *p; 

{ 

#ifdef DEBUG 

qio_write("in dont_option ,f ,14,040); 
#endif 

do_option(p,l); 

#ifdef DEBUG 

qio_write("out dont_option",15 ,040) ; 
#endif 

} 

/* 
* HANGUP 
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This routine is called from 'request' when a 'BYE' is given 
bye the remote user and the 'BYE' task gives a QIO IO.HNG to the ZT 
driver which in turn gives a packet to ACP with a func code TS.HNG 
and this routine actually sends the request to the board to hangup 

* the line. 

*/ 



hangup () 
{ 



} 



register struct packet *p = (struct packet * )io_pkt; 
register struct status *st = pty_status + p->pty no; 

if (st->carrier_on){ 

p->request = TSHANGUP; 

wr_to_exos(p); 

st->carrier on = 0; /* drop carrier */ 
} 
else 

action = 0; 
io_pkt = 0; 

dealoc_b(p,sizeof (struct packet)); /* deallocate packet from ZT */ 
return(l); 



/* 
* This ends the code for RTH 
*/ 
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/•k 

* filename: 
*/ 



SETUP. C 



/* 

* exsetup: 

* - setup message queue 

* - send init message to exos 

* - analyse board response 
*/ 



extern int zeint; 
extern long relocO; 

#ifde£ UNIBUS 

extern int *umradd; 

extern long unilbuf; 

extern long uni_msg; 

extern long phy_buf; 
#endif 



/* 18-bit unibus address for local pool */ 
/* 18-bit unibus address for msg area */ 



int exsetup(mode) 
int mode; 

{ 

struct rmsg_area *rmsgarea; 

struct wmsg_area *wmsgarea; 

register struct msg "'''current , 

long addr; 

long r_base, w_base; 

Uchar *ap, init_addr[8] ; 



*next ; 



int 



err, 



timeout ; 



register struct init_msg 

int i; 

Uint Xceiver; 

rmsgarea = &rmsg_area; 
wmsgarea = &wmsg area; 



*im; 



/* rmsgarea base segment addr */ 



r_base = reloc(rmsgarea) 
#ifdef UNIBUS 

; /* for UNIBUS the 18-bit addr is 16-byte aligned */ 

#else 

& 0x3FFFF0; /* in Q-bus make phy-addr 16-byte aligned */ 
#endif 

w_base = reloc (wmsgarea) /* wmsgarea base segment addr */ 
#ifdef UNIBUS 

; /* for phy-addr need not be 16-byte aligned */ 

#else 

& 0x3FFFF0; /* for Q-bus it must be 16-byte aligned */ 
#endif 

/* link together the read "exos to host" message queue */ 

rmsgarea->ma rlink = (UshortK reloc(rmsgarea->ma rmsgs) - r base); 
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/* exos link to read queue */ 

current = (struct msg *) (&rmsgarea->ma_rmsgs[NET_RBUFS-l] ) ; 
rmsgarea->ma_lastr = rmsgarea->ma_rmsgs; 
nxtrst = &rmsgarea->ma_lastr->nm_u.msg_hd.mh_status; 
for(i=0;i<NET_RBUFS;i++) { 

next =( struct msg *)( &rmsgarea->ma_rmsgs[i]); 

current->nm_u.msg_hd.mh_link = (Ushort )(reloc(next ) - r_base); 

current->nm_u.msg_hd.mh_length = sizeof (union exos_u) 

- sizeof ( struct headers); 

current->nm_u.msg_hd.mh_status =3; 

current->msg_link = next; 

current = next; 
1 

/* link together the write "host to exos" message queue */ 

wmsgarea->ma_wlink = (Ushort )( reloc(wmsgarea->ma_wmsgs) - w_base ); 

current = (struct msg *) (&wmsgarea -> ma_wmsgs[NET_WBUFS-l]) ; 

wmsgarea->ma_lastw = wmsgarea -> ma_wmsgs; 

nxtwst = &wmsgarea->ma_lastw->nm_u.msg_hd.mh_status; 

for (i=0;i < NET_WBUFS;i++) { 

next = (struct msg *) (&wmsgarea-> ma_wmsgs[i] ) ; 

current->nm_u.msg_hd.mh_link = (Ushort )(reloc(next) - w_base); 

current->nm_u.msg_hd.mh_length = sizeof (union exos_u) - 

sizeof ( struct headers )» 

current->nm_u.msg_hd.mh_status =0; 

current -> msg_link = next; 

current = next; 
} 

/* setup initialization message */ 



im = ex_db.ex_imsg; 

clear(im, sizeof (struct init_msg) ) ; 

im -> im_newstyle = 1; 

im -> im_result = OxFF; 

im -> im_mode = mode & 0x0 7F; 

im->im_hdfo[0]=im->im_hdfo[l] = 1; 

im -> im_addrmode = 3; 

/* data order test patterns */ 



/* clear the init_msg area */ 

/* use new style message */ 

/* reserved */ 

/* setup mode */ 

/* do auto-byte/word swapping*/ 

/* absolute address mode */ 



im -> im_byteptn[0] 
im -> im_byteptn[l] 
im -> im_byteptn[2] 
im -> im_byteptn[3] 
im -> im_wordptn[0] 
im -> im_wordptn[l] 
im -> im longptn 



i; 

3; 

7; 

OXF; 

0X103; 

0X70F; 

0X103070F; 



im -> im_101off = im -> im_101seg = 0XFFFF; 

im -> im_nhosts = 1; 

im -> im result = im -> im nmb = im -> im nproc = im -> im nslots=0XFF; 
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Oc 



im -> im_h2exqaddr = 
#ifdef UNIBUS 

uni_msg + (w_base - rbase); 
#else 

#endif 



w_base; 

/* 22 bit physical base address */ 

im->im_h2exoff = (Ushort )(reloc(&wmsgarea->ma_wlink) - w_base); 

/* 16 bit physical address */ 

im -> im_h2extype = 0; /* polled by EXOS */ 

im -> im_h2exaddr = 0; 

im -> im_ex2hqaddr = 
#ifdef UNIBUS 

uni_msg; 
#else 

r_base; 
#endif 

/* 22 bit physical base address */ 

im->im_ex2hoff = (Ushort )(reloc(&rmsgarea->ma_rlink) - r_base); 

im -> im_ex2htype = 4; /* bus vectored interrupt */ 

im -> im_ex2haddr = ((long) zeint « 16); /* interrupt address */ 

/* the address is shifted 16 bit so that lower word remains zero */ 

/* init message initialization is complete */ 

/* reset exos by writing onto port A; then after 2 sees 
check the status and report an error */ 

write_port(PORTA,0); 

delay(2, 's f ); /* wait for 2 sees for successful initialization */ 

for<;;){ 

if(((Xceiver = read_port(PORTB)) & PBERROR) == 0){ 

/* check if success bit is clear */ 
if(mode & 0x80) /* if infinite timeout is requested */ 

continue; 
else 

return ( PB ERROR); 

} 
else 

break; 
} 

init_addr[0] = init_addr[l] = -1; /* move FF */ 
init_addr[2] = init_addr[3] = ; /* move */ 
addr = reloc(ex db.ex imsg); /* int addrs[0..3] is init 



as 0XFFFF0000 */ 



#ifdef UNIBUS 

{ 

unsigned int *p = (int )&addr; 
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*umradd++ = *++p; /* use the first UMR of the pool and load it */ 
*umradd — = * — p; 

addr = unilbuf; /* 18-bit address */ 
1 



#endif 



for(i = 0; i<4; i++) { 

init_addrs[i+4] = addr; 

addr »= 8; 
} 

/* write the init_addrs to port B preceded by 0XFFFF0000 */ 

#ifdef DEBUG 

qio_write( M init ,f ,5,040); 
#endif 

for ( i = 0; i < 8; i++ ){ 
timeout = 100000; 

while((read_port(PORTB) & PB_READY)&& timeout—) 
if (timeout == 0){ 

if(mode & 0x80){ /* is infinite timeout requested */ 
timeout = 100000; 
continue; 
} 
return(read port(PORTB)) ; 
} 
write port(PORTB,((init addr[i] )&0XFF)); 
} 

#ifdef DEBUG 

qio_write ("over", 5, 040) ; 
#endif 

delay(2,V); 
for(;;){ 

if (im->im_result){ 

if(mode & 0x80){ 
delay(2,V); 

continue; /* infinite timeout */ 
} 
ex_db.ex_init = 0; 
break; 

1 
else { 

ex_db.ex_init = 1; 
break; 
} 
} 

#ifdef UNIBUS 
{ 

unsigned int *p = (int )&phy_buf; 

*umradd++ = *++p; /* restore 1st UMR */ 
*umradd — = * — p; 
} 
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#endi£ 



im->im_dummy2 = Xceiver; 
return(im->im result); 



/* error status of Xceiver cable */ 
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/* 

* filename: SIGNALOOB.C 
*/ 

int fin_pen(x) 
int x; 
{ 

register struct iopkt *pkt, *prev; 
int fn_code,b,c,ch_no; 

prev = 0; 

pkt = io_pend; 

if(x == SA_USL) 

fn_code = IO_ACS|SA_SEL; 
else 

fn_code = IO_ACS|SA_URG; 
c = chn; 

while ( pkt ){ 

if(x == SA_URG){ 

b = pkt->i_prm.i_prm4; 
c = ex oob.nm soid; 
} 
else 

b = pkt->i_prm.i_prm6; 

if((pkt->i_fcn == fn_code) && (b == c)){ 
if(x — SAJJSL) 

if(pkt->i_prm.i_prm5 & NOREPLY){ 

pkt->i_prm.i_prm5 |= UNSELECT; /* set it unselect */ 

prev = pkt; 

pkt = pkt->i_lnk; 

continue; 
} 
if ( prev ) 

prev->i_lnk = pkt->i_lnk; 
else 

io_pend = pkt->i_lnk; 
if((x == SA_USL) || (x == SA_ROO)) /* only for SAJJSL and SA_ROO */ 

pkt->i_ast =0; /* see that ast is not entered */ 
ch_no = pkt->i_prm.i_prm6; /* get the channel nmumber */ 
if(x == SAJJRG) 

iosb.nread = ch_no; /* return channel number in iosb*/ 

ch_des[ch_no].rundn_cnt — ; /* rundown the I/O */ 
ackuser( pkt ); 

} 
else 

prev = pkt; 
pkt = pkt->i Ink; 
} 
} 
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/* 

* filename: UNIACP.C 

*/ 
/* 

* This file contains the 'C' code for incorporating ACP on a UNIBUS M/C 

*/ 
/* 

* UNI_INI 
* 

* This routine is called for initializing the unibus related 

* stuff. It calls a macro routine to assign the UMR's. 
*/ 



uni ini() 
{ 



* 



srex(); /* specify exit ast for cleanup of UMR's */ 
clear(pool_im,sizeof pool_im); 

rel_pool(); /* initialize relocated address of pool */ 
if ( !ass_umr( )) { 

qio_write("** FATAL ** - NO UMR'S AVAILABLE", 32, 040 ) ; 

exit (); 

} 

/* call a macro routine to assign 3 UMR's for pool 

* area and the message area and also load them and 

* save the physical UNIBUS address (18-bit) in a 

* global area. 
*/ 



/* 
* GETPOOL 



*/ 



This routine gets a free buffer from the pool and allocates 
it for the requester. This returns the 18-bit UNIBUS address 
of the allocated slot. If allocation fails then the packet is 
put in a secondary queue and action is set to '0' so that the 
board does not get any message for the time being. 



long 

getpool(pkt,st) 
struct iopkt *pkt; 
Ushort st; 
{ 



register struct pool_im *pl = pool_im; 
struct rel_addr tmp_addr; 
int i; 

for(i=0;i < POOL_BUFS;i++,pl++) 
if(pl->state != ALLOCATED) { 
pl->owner = pkt ; 
pl->state = ALLOCATED; 

if(st) { /* if it is a write request then do Xfering */ 

if(i <= 7) { /* is it within 1st 4KW ? */ 
tmp_addr .rel_bias = rellbuf .rel_bias; 
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tmp addr.dis_bias = rellbuf .dis_bias + (POOLBUFSIZE * i); 

} 
else { 
tmp_addr.rel_bias = rel2bu£.rel_bias; 
tmp_addr.dis_bias = rel2buf .dis_bias + (POOLBUFSIZE * (i-8)); 

} 
acopy(&pkt->i prm.i_buf ,&tmp_addr .rel_bias,pkt->i_prm.i_cnt ) ; 

} 
break; 

} 
if(i == POOL_BUFS) { /* if no pool available */ 

action = 0; /* donot send anything to the board */ 

pkt->i_lnk = sec_que; /* put the pkt on top of the sec que */ 
sec_que = pkt; 
return(O); 

} 
if(i <= 7) 

return(unilbuf + (POOLBUFSIZE * i))*, 
else 

return(uni2buf + (POOLBUFSIZE * (i - 8))); 

} 

/* 

* PUT_SEC_QUE 

*/ 

/* 

* Puts the secondary que on the top of the internal queue in the reverse 

* order i.e. the last element of the sec queue will finally be on top of 

* the internal queue. 
*/ 

put_sec_que( ) 
{ 



register struct iopkt *tmp; 

while(sec_que) { 

tmp = sec_que->i_lnk; 
sec_que->i_lnk = int_que; 
int_que = sec_que; 
sec_que = tmp; 
} 



/* 



FREEPOOL 



This routine frees the allocated pool and also Xfers the data 
which has arrived from the board to the user area. 



*/ 



f reepool ( pkt , s t ) 
struct iopkt *pkt; 
Ushort st; 

{ 

register struct pool im *pl = pool_im; 
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struct rel_addr tmp_addr; 
register int i; 

for(i=0;i < POOL_BUFS;i++,pl++) 
if(pl->owner == pkt) { 

pl->state = DEALLOCATED; 

pl->owner = 0; 

break; 

} 
if(st) { 

if(i <= 7) { 

tmp_addr.rel_bias = rellbuf .rel_bias; 

tmp_addr.dis_bias = rellbuf .dis_bias + (POOLBUFSIZE * i); 

} 
else { 

tmp_addr.rel_bias = rel2buf .rel_bias; 

tmp addr.dis bias = rel2buf.dis bias + (POOLBUFSIZE * (i - 8)); 

} 
acopy(&tmp_addr . rel_bias ,&pkt->i_prm. i_bu£ , pkt->i_prm. i_cnt ) ; 
/* Xfer read data from pool to the user buffer */ 
} 
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FILEMANE: ACPUCB.MAC 

ACPUCB: — > This routine searches the DCB list and picks up the ZE device 
DCB. It then moves the TCB address of the ACP(current) task's 
TCB address to the U.ACP field of each UCB of the device. 
As it manipulates the system database it first switch itself 
to system state such that all other processes are lock, by 
calling to $SWSTK routine. 

RO returns the completion code — > unsucess 1 — > success 



.TITLE ACPUCB 
.IDENT /01/ 



SYSTEM MACRO CALLS 



.MCALL 
UCBDF$ 
DCBDF$ 



UCB,DF$,DCBDF$ 



C$SPRT=0 



■PSECT C$TEXT,I,RO 



ACPUCB:: 



; global reference label 



.IF DF C$SPRT 

JSR R5,C$SAV 
MOV R5,-(SP) 

.ENDC 



; make it 'C' callable 
; save C frame pointer 



20$: 



40$ 



CALL 


$SWSTK,RET 


CLR 


SUCC 


MOV 


#$DEVHD,R2 


MOV 


(R2),R2 


BEQ 


60$ 


CMP 


#"ZE,D.NAM(R2) 


BNE 


20$ 


INC 


SUCC 


MOVB 


D.UNIT+1(R2),R3 


MOV 


D.UCBL(R2),R4 


MOV 


D.UCB(R2),R2 


MOV 


$TKTCB,U.ACP(R2) 


CLR 


U.CW2(R2) 



switch to system state and return to user 

state at RET after execution of RETURN 

indicate unsuccessful 

set pointer to the first DCB 

get next DCB address 

no more DCB exit, it is unsuccessful exit 

is it ZE device ? 

if NE no;; go for next DCB 

indicate success 

get number of UCBs (units) 

get size of the UCB 

get first UCB address in R2 

get ACP(current) task TCB address 

clear user characteristics word 
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.IF DF UNIRUS 



MOV 
MOV 
MOV 

.ENDC 



U.ACP+2(R2),PHY.BUF 
U . ACP+4 ( R2 ) , PHY . BUF+2 
R2,ZEUCB 



;; higher order address 
;; lower order address 
;; save UCB address 



60$: 


ADD 
DEC 
BPL 
RETURN 


R4,R2 

R3 

40$ 


RET: 


MOV 




SUCC,R0 




.IF 


DF 


C$SPRT 



MOV (SP)+,R5 
JMP C$RET 

.IFF 

RETURN 

.ENDC 



get next UCB address 
decrement UCB count 
if PL(us) more UCB 
switch to user state 



;return result in R0 



; adjust frame pointer 
; return to caller 



SUCC: 



.BLKW 



.PSECT C$TEXT,I,RO 

.EVEN 

.END 
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filename: 



DQPKT.MAC 



This routine dequeues a pakcet from the listhead of the ACP task. It first 
switches to system state before dequeueing. The address of the dequeued 
packet is returned in RO making it callable from C. 



C$SPRT=0 



.TITLE 
. I DENT 
.PSECT 

IOPKT: .BLKW 



; this routine becomes callable from a C routine 



.MCALL TCBDF$, UCBDF$ 

TCBDF$ 

UCBDF$ 



DQPKT 

/01/ 

c$text,i,ro 



local variable to hold I/O packet address 



DQPKT:: 



.IF DF C$SPRT 



JSR 
MOV 

.ENDC 



R5,c$sav 
R5,-(SP) 



save register R2-R5 and adjust stack 
save R5 i.e frame pointer of C routine 



CLR 



IOPKT 



SWSTK$ 


USR 


MOV 


$TKTCB,R0 


ADD 


#T.RCVL,R0 


CALL 


$QRMVF 


BCS 


20$ 


MOV 


Rl, IOPKT 


BR 


60$ 


20$: MOV 


NXTRST,R2 


BEQ 


40$ 


BITB 


#3,(R2) 


BEQ 


60$ 


TST 


INT. QUE 


BEQ 


40$ 


MOV 


NXTWST,R2 


BEQ 


40$ 


BITB 


#3,(R2) 


BEQ 


60$ 


40$: JMP 


$STPCT 


60$: 




RETURN 





clear I/O packet address 

switch to system state to lockout other 

processes 

get ACP(our) TCB address 

get receive queue listhead 

attempt to dequeue packet 

if CS no pakcet 

return address of I/O packet 

return 

get pntr to status field of reply Q 

initially the ptr is null and since 

there is no job for acp - sleep 

check ownership 

if EQ owner=host, process reply 

check if anything pending in internal Q 

if EQ nothing, then sleep 

check availibility of free slot 

initially ptr is null so sleep since no job 

check ownership 

if EQ slot available, procees request 

go to sleep 

return to user state 
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USR: MOV IOPKT,R0 

.IF DF C$SPRT 

MOV (SP)+,R5 
JMP c$ret 

.IFF 

RETURN 

„ENDC 



; return I/O packet address in RO 



; restore frame pointer of the C routine 
;; unsave register and adjust stack & return 



ACCKUSER : this is a C callable routine, which will issue a $IOFIN 
to inform the requesting task of 10 completion. This is 
only compatable with C function call. 

C function: 

ackuser ( io_pkt ) 

struct iopkt *io_pkt; 

IOSB is the address of the IOSB 



ACKUSER: J 



.IF DF C$SPRT 



JSR 
MOV 
MOV 

.ENDC 



10$: 



R5,c$sav 
R5,-(SP) 
4(R5),R3 



MOV 


R3,R0 ; 


MOV 


R3 , IOPKT ; 


MOV 


I.UCB(R3),R5 ; 


ADD 


#I.PRM,R0 ; 


MOV 


#10, Rl ; 


CLR 


(R0)+ ; 


DEC 


Ri ; 


BNE 


10$ 


CALL 


$SWSTK,RET ; 


MOV 


IOSB,R0 ; 


MOV 


IOSB+2,Rl ; 


MOV 


IOPKT, R3 ; 


CALL 


$IOFIN ; 


RETURN 


! 



; save register and adjust stack 

; save frame pointer 

; move address of I/O packet 



move address of I/O pkt in RO 

save I/O pkt addr 

move address of UCB in R5 

RO now points to parameter block 

clear 8 words in param block 

clear parameter word 

decrement loop count 



switch to system state 
move first word of IOSB 
move second word of IOSB 
get I/O pkt addr 
; complete io process 

return to task state 



RET: 
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.IF DF C$SPRT 

MOV (SP)+,R5 
JMP C$RET 

.IFF 

RETURN 

.ENDC 



; restore frame pointer 
; return to the caller 



This is a ' C' callable routine, which returns the absolute 
physical address of an input virtual address. 

long reloc(v_addr) 
Ushort v_addr; 

This routine is also callable from macro, input outputs are 

INPUT: RO -> virtual address 

OUTPUT: RO -> higher order address word 
Rl -> lower order address word 



RELOC:: 



.IF DF C$SPRT 



JSR 
MOV 
MOV 

.ENDC 



R5,C$SAV 
R5,-(SP) 
4(R5),R0 



CALL 


$RELOC 


BIC 


#160000, R2 


MOV 


R1,R0 


ASH 


#-12, RO 


BIC 


#177700, RO 


ASH 


#6,R1 


BIS 


R2,R1 



IF DF C$SPRT 



MOV 

JMP 

.IFF 
RETURN 



(SP)+,R5 
C$RET 



; save all register 
; save frame pointer 
; get address parameter 



relocate virtual address 

mask out APR index and get displacement 

get relocation bias in R0 

get upper 6 (out of 22) bits in R0 

mask other 10 bits 

get upper 10 bits of lower 16 bits in Rl 

append lower 6 bit offset 



; restore frame pointer 

; restore all register and return 



.ENDC 
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this is a "C" callable routine which returns the absolute physical 
address of an input pointer to a relocated address. 

long absadr( reladr ) 
struct rel_addr ' v reladr; 

this routine is also callable from macro with input & output as 

INPUT: RO -> pointer to the relocated address 
OUTPUT: RO -> higher order physical address 
Rl -> lower order physical address 



ABSADR: : 



.IF DF C$SPRT 



JSR 
MOV 
MOV 

.ENDC 



R5,C$SAV 
R5,-(SP) 
4(R5),R0 



MOV 


(R0),R1 


MOV 


2(R0),R2 


BIC 


#160000, R2 


MOV 


R1,R0 


ASH 


#-12, RO 


BIC 


#177700, RO 


ASH 


#6,R1 


BIS 


R2,R1 



.IF DF C$SPRT 



MOV 
JMP 

.IFF 

RETURN 

.ENDC 



(SP)+,R5 
C$RET 



; save all registers 
; save frame pointer 
; get the input parameter 



get relocation bias in Rl 

get displacement bias in Rl 

mask out the APR index 

get relocation bias in R0 

get lower 6 bits of higher order adr 

mask out remaining bits 

get upper 10 bits of lower address 

append lower 6 bit offset( displa) 



; retore frame pointer 

; restore all register and return 



this is a 'C f callable routine to get the privilege info of a task 

int getpriv( tcb) 

int tcb; /* tcb address of the task */ 



Oct 17 16:25 1985 dqpkt.mac Page 5 



if called from macro , input & outputs are 
INPUT : R3 -> tcb address of the task 
OUTPUT : RO -> = 1 if priv else clear 



GETPRIV: : 



.IF DF C$SPRT 



JSR 
MOV 
MOV 

.ENDC 



R5,C$SAV 
R5,-(SP) 
4(R5),R3 





CLR 


RO 




BIT 


T.ST3(R3),#T3.PRV 




BEQ 


20$ 




MOV 


T.UCB(R3),R2 




BIT 


U.CW2(R2),#U2.PRV 




BNE 


10$ 




MOV 


U.DCB(R2),R2 




CMP 


#"CO,D.NAM(R2) 




BNE 


20$ 


10$: 








INC 


R0 


20$: 








.IF DF 


C$SPRT 




MOV 


(SP)+,R5 




JMP 


C$RET 



.IFF 
RETURN 
• ENDC 

.PSECT C$TEXT,I,RO 



; save all register 
; save frame pointer 
; get tcb address 



assume non-privilege 

test privilege bit 

if EQ then task is non-privileged 

get the ucb of ' ti:' 

test privilege bit 

if NE then privileged 

get 'TI:' DCB 

is it the console? 

if NE then no, so non-privileged 

; output privilege 



; restore frame pointer 

; restore register and return 



.EVEN 
.END 
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filename: RTHMAC.MAC 



This file contains all the C - callable routines written in MACRO-11 assembly 
language 



.TITLE RTHMAC 
.IDENT /01/ 

.MCALL UCBDF$ , PKTDF$ , DCBDF$ , SCBDF$ , TCBDF$ 

UCBDF$ ,,TTDEF 

PKTDF$ 

DCBDF$ 

SCBDF$ 

TCBDF$ 

IO.INP = 5400 
10. OUT = 6000 



OUT. INT — > This routine gives an O/P interrupt to ZTDRV 



.psect c$text,i,ro 

.MCALL ALUN$S,QIO$S,QIOW$S 

OUT. INT:: 

jsr R5,c$sav 

MOV 4(R5),R2 ; get pty_no_first parameter 
ALUN$S #7,#"ZT,R2 
QIO$S #10. OUT, #7,,,,, 

jmp c$ret 

QIO.ZT — > This routine does a QIO IO.INP to ZTDRV which simulates an 
i/P interrupt. 



QIO.ZT:: 

jsr R5,c$sav 

MOV 4(R5),R0 ; pty_no 

MOV 6(R5),R1 ; buffer ptr to be o/p 

MOV 10(R5),R2 ; length of buffer 

ALUN$S #7,#"ZT,R0 

QIOW$S #I0.INP,#7,#1,,,,<R1,R2> 

jmp c$ret ; return to caller 

DEALOC.B — > This routine deallocates a packet back to the system pool 
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DEALOC . B S : 
jsr 
MOV 


R5,c$sav 
R5,-(SP) 


MOV 
MOV 
CALL 


6(R5),R1 

4(R5),R0 

Q$DEACB\ 


MOV 

jmp 


(SP)+,R5 
c$ret 



size of pkt to be deallocated 
address of that pkt 

deallocate pkt back to the system pool 
also return to task state 

; return to caller 



QIO. WRITE — > This routine writes to the tewrminal 



QIO. WRITE:: 
jsr 
MOV 



R5,c$sav 
R5,-(SP) 



MOV 4(R5),R0 ; buffer pointer 

MOV 6(R5),R1 ; buffer length 

MOV 10(R5),R2 ; vertical format character 

QIOW$S #IO.WLB,#5,#l,,,,<R0,Rl,R2> 

MOV (SP)+,R5 

jmp c$ret 



QIO. SMC — > This routine does a QIO SF.SMC to ZTDRV to set and reset terminal 
options. 



QIO. SMC:: 

jsr 
MOV 

MOV 
MOV 



RTVAL: 



R5,c$sav 
R5,-(SP) 

4(R5),R1 
6(R5),R2 



; pty number 

; address of buffer 



ALUN$S #7,#"ZT,R1 

QIOW$S #SF.SMC,#7,#1,,,,<R2,#2> 



MOV 
jmp 



(SP)+,R5 
c$ret 



.psect c$data,d,rw 



.WORD 

.psect c$text,i,ro 
SET. CAR. ON:: 

jsr R5,c$sav 
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10$: 



20$: 



30$: 



MOV 


R5,-(SP) 


MOV 


4(R5),R0 


SWSTK$ 
MOV 


30$ 

#$DEVHD,R2 


MOV 


(R2),R2 


BEQ 
CMP 


20$ 
#"ZT,D.NAM(R2) 


BNE 
MOV 
MOV 


10$ 

D.UCBL(R2),R1 

D.UCB(R2),R2 


MUL 


R0,R1 


ADD 


R1,R2 


BICB 


#US.DSB!US.CRW,U 


MOV 


#1,RTVAL 


RETURN 




MOV 


#0,RTVAL 


RETURN 




MOV 


RTVAL,R0 


MOV 


(SP)+,R5 


jmp 


c$ret 


.psect 


c$text ,i,ro 


.even 




.psect 


c$data,d,rw 


.even 




.END 





; pty number 

;; switch to system state 
;; start of device tables 



get next DCB 

if EQ device not in system 

is it the 'ZT' device? 

if NE no, keep searching 

get length of UCB 

get address of first UCB 

get offset to the correct UCB in Rl 

get UCB address in R2 
STS(R2) ;; enable unit and not waiting for car 
; return sucess 
; return to user state at 30$ 



; ; indicate failure as ZT device not found 
; ; return to user state 

; return value 

; restore frame pointer 



; end of file RTHMAC.MAC 
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£ i 1 ename : RWPORT . MAC 

NAME: 

read. port, write. port — read and write from the port 

SYNOPSIS: 

int read_port(PORT) 
int PORT; 

int write_port(PORT, value) 
int PORT; 

value; 

FUNCTION: 

read_port reads the specified port and returns the value 

write port writes the given value into the specified address 



.TITLE RWPORT 
.IDENT /01/ 

IOPAGE = 160000 
C$SPRT = 

.PSECT EX$RWI,RO 

READ.P:: ; read port entry point 

.IF DF C$SPRT 

JSR R5,C$SAV ; save registers if C interface 

MOV 4(R5),R1 ; get port address in I/O page in Rl 

.ENDC 

MOVB IOPAGE(Rl),R0 ; read a byte from port in R0 

.IF DF C$SPRT 

JMP C$RET ; restore register 

.IFF 

RETURN ; return to caller 

.ENDC 

WRITE.:: ; write port entry point 

.IF DF C$SPRT 
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JSR R5,C$SAV 
MOV 4(R5),R1 
MOVB 6(R5),R0 

.ENDC 

MOVB RO,IOPAGE(R1) 

.IF DF C$SPRT 

JMP C$RET 

.IFF 

RETURN 

.ENDC 

.PSECT RWPORT,I,RO 

.EVEN 

.END 



; save all register in C environment 
; get port address in I/O page in Rl 
; move a byte value in RO 



; write a byte into port 



; restore register and return 



; return to caller 
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.TITLE SCOPY 
.IDENT /01/ 

.PSECT C$TEXT,I,RO 



C$SPRT=0 

SCOPY: this routine copies user soictl buffer into a global 
buffer of acp. this routine is "C" callable as 



scopy( from, count) 

struct rel_addr *from; 
int count; 



/* pointer to source relocated addr */ 
/* byte count */ 



FROM: .BLKW 1 
TO: .BLKW 1 
COUNT: .BLKW 1 



SCOPY:: 



scopy entry point 



.IF DF C$SPRT 



JSR 


R5,C$SAV 


MOV 


R5,-(SP) 


MOV 


4(R5),FROM 


MOV 


6 (R5), COUNT 



save all register 

save frame pointer 

get source relocated addr pointer 

get byte count 



.ENDC 



CALL 


$SWSTK,RET ; 




MOV 


#PARAM,R0 J 




CALL 


$RELOC ; 




MOV 


R1,R3 ; 




MOV 


R2,R4 ! 




MOV 


FROM,R0 




MOV 


(R0)+,R1 




MOV 


(R0),R2 




ADD 


#120000-140000, R2 


MOV 


COUNT, R0 




CALL 


$BLXIO 




RETURN 







switch to system state 

load R0 with the acp buffer 

relocate the destination address 

move dest relocation bias to R3 

move dest displacement bias to R4 

get pointer to source relocated addr 

move source relocation bias 

move source disp bias ( in terms of APR6 ) 

;; make it APR5 bias 
move byte count 
move data 
return to task state 



RET: 



.IF DF C$SPRT 



MOV 
JMP 



(SP)+,R5 
C$RET 



; restore frame pointer 

; restore register and return 



.ENDC 
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.PSECT C$TEXT,I,RO 

.EVEN 

.END 
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•TITLE UCOPY 
.IDENT /01/ 

.PSECT C$TEXT,I,RO 



C$SPRT=Q 

UCOPY: this routine copies user soictl buffer from the global 
buffer of acp. this routine is "C" callable as 



ucopy( from, to, 
char *from; 
struct rel_addr 
int count ; 



count) 



*to; 



/* pointer to source buffer */ 

/* pointer to dest relocated addr */ 

/* byte count */ 



FROM: .BLKW 1 
TO: .BLKW 1 
COUNT: .BLKW 1 



UCOPY:: 



.IF DF C$SPRT 



JSR 


R5,C$SAV 


MOV 


R5,-(SP) 


MOV 


4(R5),FROM 


MOV 


6(R5),TO 


MOV 


10 (R5), COUNT 



.ENDC 

CALL 

MOV 

CALL 

ADD 

MOV 

MOV 

MOV 

MOV 

CALL 

RETURN 



$SWSTK,RET ; 

FROM,R0 ; 

$RELOC ; 
#120000-140000, R2 

TO,R0 ; 

(R0)+,R3 ; 

(R0),R4 ; 

COUNT, R0 ; 
$BLXIO 



» > 



scopy entry point 



save all register 

save frame pointer 

get source addr pointer 

get dest relocted addr pointer 

get byte count 



switch to system state 
load R0 with the source buf 
relocate the source address 

;; make it APR5 bias 
get pointer to dest relocated addr 
move destination relocation bias 
move dest disp bias ( in terms of APR6 ) 
move byte count 
move data 

;; return to task state 



RET: 



.IF DF C$SPRT 

MOV (SP)+,R5 
JMP C$RET 



; restore frame pointer 

; restore register and return 



.ENDC 
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.PSECT C$TEXT,I,RO 

.EVEN 

.END 
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UNIBUS = 1 
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NLIST SYM 
NLIST CND 

filename: 



UNIACP.MAC 

This file contains all the macro routines for incorporating 
the ACP on a UNIBUS machine. 



.TITLE UNIMAC 
.IDENT /01/ 



ASS.UMR 



this routine assigns 3 UMR's for the pool and the message area 

and also loads them and also saves the unibus addresses in 

some global area so that they can be accessed by other routines. 



.MCALL 
SCBDF$ 
UCBDF$ 


SCBDF$,UCBDF$ 
,,SYSDEF 


C$SPRT 


= 1 


.IF DF 


R$$MPL 


S.UNI = 


S.EMB + 2 


.IFF 


;R$$MPL 


S.UNI = 


S.FRK + 14 


.ENDC 


;R$$MPL 


SGBDF$ 





psect c$text,i,ro 



ASS.UMR:: 



IF DF C$SPRT 



jsr 
MOV 

.ENDC 



R5,c$sav 
R5,-(SP) 



; get UCB address 
; get SCB address 
; no. of UMR's to be allocated 



MOV ZEUCB,R4 

MOV U.SCB(R4),R4 

MOV #10,S.UNI+M.UMRN(R4) 

MOVB PHY.BUF,S.UNI+M.BFVH(R4); higher order physical address 

MOV PHY.BUF+2,S.UNI+M.BFVL(R4) ; lower order address 

MOV #S.UNI,R0 ; 

ADD R4,R0 ; point to UMR mapping table 

CALL .AS. UMR ; assign the two UMR's 
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TST 


SUCC 


BEQ 


FAILS 


MOV 


M.UMVL(R0),UNIlBUF+2 


MOVB 


M.UMVH(R0),UNI1BUF 


MOV 


UNI1BUF,R3 


MOV 


R3,R4 


ASH 


#-4,R4 


MOV 


R4,UNI1BUF 


MOV 


UNI1BUF+2,R4 


BIC 


#177717, R3 


ASR 


R3 


ASH 


#-13., R4 


BIC 


#177770, R4 


BIS 


R4,R3 


INC 


R3 


MOV 


R3,R4 


MOV 


UNI1BUF+2,R2 


ASH 


#13., R3 


BIC 


#017777, R3 


BIC 


#160000, R2 


BIS 


Kz , R j 


ASH 


#-3,R4 


MOV 


R4,UNI2BUF 


MOV 


R3,UNI2BUF+2 


MOV 


M.UMRA(R0),R1 


MOV 


R1,UMRADD 


MOV 


PHY.BUF+2,R3 


MOV 


PHY.BUF,R2 


MOV 


R3,(R1)+ 


MOV 


R2,(R1)+ 


ADD 


#20000, R3 


ADC 


R2 


MOV 


R3,(R1)+ 


MOV 


R2,(R1)+ 


MOV 


#12., Rl 


CALL 


$ALOCB 


BCS 


FAILS 


MOV 


R0,UMRMSG 


MOV 


#4,M.UMRN(R0) 


MOV 


R0,-(SP) 


MOV 


#RMSG.A,-(SP) 


CALL 


RELOC 


TST 


(SP)+ 


MOV 


(SP)+,R2 


MOVB 


R0,M.BFVH(R2) 


MOV 


R1,M.BFVL(R2) 


MOV 


R2,R0 


CALL 


•AS.UMR 


TST 


SUCC 


BEQ 


FAILS 



was it successful? 

if EQ then no 

save lower order unibus address 

save higher order word 

get higher order address 

copy higher order address 

shift bits 4 and 5 to and 1 

restore the high order address 

lower order address 

mask all but bits 4 & 5 in high order 

get bits 4 & 5 into 3 & 4 

high 3 bits in low 3 bits of low order 

mask remaining bits 

append bits 0,1 & 2 of LO to 3 & 4- HO 

get next UMR nnumber 

save R3 in R4 

get lower order address 

get lower 3 bits in upper 3 

mask out rest of the bits 

mask high 3 bits in lower order addr 

final lower order address in R3 

get bits 3 & 4 in and 1 

higher order address 2 bits 

lower order address 16 bits 

get address of 1st UMR 

save this address for further use 

save lower order address 

higher order address 

load lower order address 

load higher order address 

add an equ. of 4KW 

load lower order address of next 4kw 
higher order address of next 4kw 

size of UMR ass. block 

allocate it from the system pool 

if CS then no system pool available 

save ptr to ass. block 
No. of UMR's to assign * 4 
save R0 

1st parameter 

call a 'C' callable macro routine 

which returns the physical address 

pop stack 

unsave pointer to UMR ass. block 

higher order physical address 

lower order physical address 

restore R0 

assign the UMR 

was it successful 1 

if EQ no 
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MOV 


M.UMVL(RO) ,UNI .MSG+2 




MOVB 


M.UMVH(R0),R4 




ASH 


#-4,R4 




MOV 


R4,UNI.MSG 




MOV 


M.UMRA(R0),R1 




MOV 


M.BFVL(R0),(R1)+ 




MOVB 


M.BFVH(R0),(R1) 




MOV 


#1,R0 




BR 


RTN 


FAILS: 








MOV 


#0,R0 


RTN: 







lower order unibus address 
higher order unibus address 
shift bits 4 & 5 to & 1 
store higher order address 
get UMR address 
load lower order address 
load higher order address 

return success 



; unsuccessful 



.IF DF C$SPRT 

MOV (SP)+,R5 
jmp c$ret 

.IFF 

RETURN 

.ENDC 



.AS. UMR 



inputs: 



This 'mac' callable routine actually goes int system state 
to assign the UMR's 



RO -> address of UMR assignment block with no. of UMR's * 4 to 
assign in M.UMRN 



.psect c$data,d,rw 

SUCC: .WORD 

.psect c$text,i,ro 

.AS. UMR:: 

SWSTK$ 20$ 

CALL $ASUMR 

BCS 10$ 

MOV #1,SUCC 
RETURN 



10$: 



20$: 



CLR SUCC 
RETURN 

RETURN 



; return status 



switch to system state 

assign UMR's 

if CS then it fails 

indicate success 

return to task state at 20$ 



;; indicate failure 

;; return to task state 
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REL.PGOL 



This 'C* callable routine fills up the relocated address of 
the pool in the global data structures. 



•psect 


c$text ,i,ro 


REL.POOL:: 




.IF DF 


C$SPRT 


jsr 


R5,c$sav 


.ENDC 




MOV 


PHY.BUF,R0 


MOV 


PHY.BUF+2,R1 


ASHC 


#10., RO 


ASHC 


#-10., Rl 


MOV 


R0,REL1BUF 


ADD 


#140000, Rl 


MOV 


Rl,RELlBUF+2 


ADD 


#200, R0 


MOV 


R0,REL2BUF 


MOV 


Rl,REL2BUF+2 


.IF DF 


C$SPRT 


JMP 


C$RET 


.IFF 




RETURN 




.ENDC 





; higher order address 
; lower order address 

; calculate rel bias and the disp, 



relocation bias 
set displacement 
store it 

; add an eq. of 4KW 

; rel bias for next 4KW 

; displ bias is same 



ACOPY 



This ' C 1 callable routine is used to Xfer data from one part of the 
physical memory to the other using inputs as the relocated addresses 
of both source and destination. 



INPUTS: 



R0 — > source rel addr pointer 

Rl — > destination rel addr pointer 

R2 — > byte count 



.psect c$text,i,ro 
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ACOPY: : 



•IF DF C$SPRT 



jsr 
MOV 

MOV 
MOV 
MOV 



R5,c$sav 
R5,-(SP) 

4(R5),R0 
6(R5),R1 
10(R5),R2 



; source relocated addr pointer 
; destination rel addr pointer 
; byte count 



.ENDC 



RET: 



MOV 


R2,R5 


SWSTK$ 


RET 


MOV 


(R1)+,R3 


MOV 


(R1)+,R4 


MOV 


(R0)+,R1 


MOV 


(R0),R2 


ADD 


#120000-140000, R2 


MOV 


R5,R0 


CALLR 


$BLXIO 



save count in R5 
switch to system state 
dest. rel. bias 
dest. displ. bias 
src rel. bias 
src displ. bias 
convert src to APR5 bias 
get byte count 
move data and return to task state 



IF DF C$SPRT 



SREX: 



MOV 


(SP)+,R5 


jmp 


c$ret 


.IFF 




RETURN 




.ENDC 




.psect 


c$text ,i,ro 


.MCALL 


SREX$S,EXIT$S 


.IF DF 


C$SPRT 


jsr 


R5,c$sav 


.ENDC 




SREX$S 


#DE.UMR 


.IF DF 


C$SPRT 


jmp 


c$ret 


.IFF 




RETURN 
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.ENDC 

.psect 

UMRMSG: .WORD 

•psect 

DE.UMR:: 

ADD 
MOV 
MOV 
ADD 



c$data,d,rw 



c$text,i,ro 



(SP),SP 
ZEUCB,R2 
U.SCB(R2),R2 
#S.UNI,R2 



CALL $DEUMR 



MOV 
MOV 



UMRMSG, R2 
R2,R0 



CALL $DEUMR 





MOV 


#12., Rl 




CALL 


$DEACB 




EXIT$S 






.psect 


c$text,i,ro 


EXIT.:: 








.IF DF 


C$SPRT 




jsr 


R5,c$sav 




.ENDC 






EXIT$S 






.IF DF 


C$SPRT 




jmp 


c$ret 




.IFF 






RETURN 






.ENDC 






.psect 


c$data,d,rw 




.even 






.psect 


c$text ,i,ro 




.even 





; address of UMR ass. block for msg area 



cleanup stack 

get UCB address 

get SCB address 

point to UMR ass block for pool area 

deallocate the UMR's 

get ptr of UMR ass block for msg area 
save it 

deallocate the UMR 

size of this allocated block 

deallocate this blopck back to the sys. pool 

exit properly 



.END 
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.ENABLE QUIET 

.DISABLE DISPLAY 

.IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

.IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [y/n] 

Assemble and build the ACP code. 

.ENABLE SUBSTITUTION 

Prepare the indirect input file for the tkb and ask. for the EXOS's 
port A address offset in the I/O page. ( the virtual address of the 
port A is expressed as an offset in the I/O page ). 

.IFDF $PORT .GOTO 1 

.SETS $PORT "4000" 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] : 



.1: 



.IFDF $VEC .GOTO 5 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.5: 



Assemble the Macro source code of the ACP. 

MAC RWPORTsLBlCljljEXEMC/MLjClljlOlRSXMCjSYl^UIO'RWPCMtT 
MAC UCOPY=LB: [ 1 , 1 ]EXEMC/ML, [ 11 , 10]RSXMC,SY: ! <UIC> ' UCOPY 
MAC SCOPY^BlEljllEXEMC/MLjilljloksXMCjSYt^UIO'SCOPY 
MAC ACPUCB=LB I [ 1 , 1 ] EXEMC /ML , [ 1 1 , 1 ] RSXMC , S Y : ' <UI C> ' ACPUCB 
MAC RTHMAC=LB:[l,l]EXEMC/ML,[ll,lohsXMC,SY:'<UIC>'RTHMAC 
MAC DQPKT^B^ljljEXEMC/MLjCll^OlRSXMCjSY^^IO'DQPKT 

Delete temporary files 

.IFF $DEL .GOTO 10 
PIP ACPUCB. MAC ;*/DE 
PIP RTHMAC.MAC;*/DE 
PIP DQPKT.MAC;*/DE 
PIP RWPORT.MAC;*/DE 
PIP SCOP Y. MAC ;*/DE 
PIP UCOPY. MAC ;*/DE 

.10: 

; task builds the acp and creates the image file in [1,54] 



Create the task builder input definition file 

.OPEN ACPTKB.CMD 

.DATA LB:[1,54]RTHACP/AC:5/-CP= 

. DATA RTH/LB : CMDTAB , ACPUCB , DQPKT , RWPORT , RTHMAC , UCOPY , SCOP Y 

.DATA S Y :' <UIC> 'PROLOGUE/ LB :CHDR 

.DATA SY:'<UIC> 'PROLOGUE/LB, LB: [1,1]EXELIB/LB 
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.DATA LB:[1,54]RSX11M.STB 

.DATA / 

.DATA UNITS=7 

.DATA TASK=...RTH 

. DATA GBLPAT=CMDTAB : ZEPORT : * $PORT ' 

. DATA GBLPAT=CMDTAB : ZEINT I f $VEC ' 

.DATA ASG=CO0:5 

.DATA // 

.CLOSE 

Task build ACP 

.IFT $NOPRE PIP LB:[l,54]RTHACP.TSK;*/DE 
TKB @ACPTKB 

Delete object files 

PIP ACPUCB.OBJ;*/DE 

PIP DQPKT.OBJ;*/DE 

PIP RWPORT.OBJ;*/DE 

PIP RTHMAC.OBJ;*/DE 

PIP UCOPY.OBJ;*,SCOPY.OBJ;*/DE 

PIP ACPTKB.CMD ;*/DE 

set appropriate protection for the ACP 

PIP LB:[l,54]RTHACP.TSK/PR/SY:RWED/OW:RWED/GR:RWED/WO:R/FO 
.ENABLE DISPLAY 
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.ENABLE QUIET 

.DISABLE DISPLAY 

.IFNDF $VRBS .ASK $VRBS Verbose ? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.IFNDF $DEL .ASK $DEL Delete source file from current UFD? [Y/N] 

.IFNDF $NOPRE .ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

; Assemble and build the ACP code. 
» 

.ENABLE SUBSTITUTION 

Prepare the indirect input file for the tkb and ask for the EXOS's 
port A address offset in the I/O page. ( the virtual address of the 
port A is expressed as an offset in the I/O page ). 

.IFDF $PORT .GOTO 1 
.SETS $PORT lf 4000 ,f 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] : 
.1: 

.IFDF $VEC .GOTO 5 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.5: 

; Assemble the Macro source code of the ACP. 

« 
> 

MAC RWPORT=LB: [ 1 , 1 ]EXEMC/ML, [ 1 1 , 10 ]RSXMC , SY: ' <UIC> ' RWPORT 

MAC UCOPY=LB: [ 1 , 1 ]EXEMC/ML, [ 11 , 10 ]RSXMC, SY: ' <UIC> ' UCOPY 

MAC SCOPY^BlCl^JEXEMC/MLjElljloiRSXMCjSY^^IO'SCOPY 

MAC ACPUCB=LB: [ 1 , l]EXEMC/ML, [ 11 , 10]RSXMC, SY: f <UIC>'UNIBUS,ACPUCB 

MAC RTHMAC=LB : [ 1 , 1 ]EXEMC/ML , [ 1 1 , 10 ]RSXMC , SY: » <UIC> ' RTHMAC 

MAC DQPKT^B^l^EXEMC/MLjlljlOJRSXMC^Y^UIO'DQPKT 

MAC UNIMAC=LB : [ 1 , 1 ]EXEMC/ML , [ 1 1 , 10 JRSXMC , SY: ' <UIC> ' UNIMAC 

Delete temporary files 

.IFF $DEL .GOTO 10 
PIP ACPUCB.MAC;*/DE 
PIP RTHMAC. MAC ;*/DE 
PIP DQPKT.MAC;*/DE 
PIP RWPORT. MAC ;*/DE 
PIP SCOPY.MACr'-/DE 
PIP UCOPY. MAC ;*/DE 
PIP UNIBUS.MAC;*/DE 
PIP UNIMAC. MAC ;*/DE 

10: 

task builds the acp and creates the image file in [1,54] 



Create the task builder input definition file 

.OPEN ACPTKB.CMD 

.DATA LB:[l,54]RTHACP/AC:5/-CP= 
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. DATA RTH /LB I CMDTAB , ACPUCB , DQPKT , RWPORT , RTHMAC , UCOPY , UNIMAC , SCOPY 

.DATA SY: »<UIC> 'PROLOGUE /LB :CHDR 

.DATA SYl^UIO'PROLOGUE/LBjLB^ljllEXELIB/LB 

.DATA LB:[1,54]RSX11M.STB 

.DATA / 

.DATA UNITS=7 

.DATA TASK=...RTH 

. DATA GBLPAT=CMDTAB : ZEPORT : ' $PORT * 

.DATA GBLPAT=CMDTAB : ZEINT : ' $VEC ' 

•DATA ASG=CO0:5 

.DATA // 

.CLOSE 

Task build ACP 

ilFT $NOPRE PIP LB:[1,54]RTHACP.TSK;*/DE 
TKB @ACPTKB 

Delete object files 

PIP ACPUCB.OBJ;*/DE 

PIP DQPKT. OBJ ;*/DE 

PIP RWPORT, OBJ ;*/DE 

PIP RTHMAC.OBJ;*/DE 

PIP UCOPY.OBJ;*,SCOPY.OBJ;*/DE 

PIP ACPTKB.CMD ;*/DE 

PIP UNIMAC.OBJ;*/DE 

set appropriate protection for the ACP 

pip lb:[i,54]rthacp.tsk/pr/sy:rwed/ow:rwed/gr:rwed/wo:r/fo 
.enable display 
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RTHACP/AC:5/-CP,RTHACP/-sp/CR= 

RTH/LB : CMDTAB , ACPUCB , DQPKT , RWPORT , RTHMAC , UCOPY , SCOPY 

sy : [ 1 ,3]PROLOGUE/LB ,LB : [ 1 , 1 JEXELIB/LB 

LB:[1,54]RSX11M.STB 

/ 

UNITS=7 

TASK=...RTH 

GBLPAT=CMDTAB : ZEPORT : 4000 

GBLPAT=CMDTAB : ZEINT : 400 

// 
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$ ! 

$ I skeleton for cmplbr.com 

$. I 

$ if ""pi 1 " .nes. "?" then goto doit 

$ typ sys$input 

command file to compile and link the library 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required files: 
none 

required symbols: 
none 

Note: 

You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ ! 

$ ! now make assignment for RSX11M UNIBUS version 

$ ! 

$ assign draO: [unillm. ] lb: 

$ assign draO: [unillm. ] lbO: 

$ if ""pi™ .eqs. "" then $ pi = ,,! 'f $logical("sys$disk") ' ' , f$directory() ,fl 

$ set def 'pi' 

$ show def 

$ show logical lb 

$ ! 

$ ! now set up environment for C compiler 

$ ! 

$ cpp == "mcr cpp" 

$ cpl == "mcr cpl" 

$ cp2 == "mcr cp2" 

$ assign draO: [albert .cutil]cpp.exe cpp 

$ assign draO: [albert .cutillcpl.exe cpl 

$ assign draO:[albert .cutil]cp2.exe cp2 

$ ! 

$ ! go compile all the files 

$ ! 

$ lbr rthuni/cr 

$ mac rwportuni,rwportuni/-sp=lb:[ 1,1 lexeme/ml, lb: [11, 10]rsxmc,sy: [l,3]rwport 

$ mac ucopyuni,ucopyuni/-sp=lb: [ 1 , 1 lexeme /ml ,1b: [11, 10]rsxmc,sy: [l,3]ucopy 

$ mac scopyuni,scopyuni/-sp=lb: [1,1 lexeme/ml, lb: [11, 10 ]rsxmc,sy:[l, 3 Iscopy 

$ mac acpucbu,acpucbu/-sp=lb: [ 1,1 lexeme /ml ,1b: [11, 10]rsxmc,sy: [l,3]unibus ,acpucb 

$ mac unimac,unimac/-sp=lb: [ 1, 1 lexeme/ml ,1b: [ 11, 10]rsxmc,sy: [ 1 ,3]unimac 
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$ mac rthmacuni,rthmacuni/-sp=lb: [ 1 ,l]exemc/ml ,1b: [ll,10]rsxmc,sy: [l,3]rthmac 
$ mac dqpktuni,dqpktuni/-sp=lb: [ 1,1 lexeme /ml ,1b: [ 11,10 ]rsxmc,sy: [l,3]dqpkt 

$ ! 

$ ! C program 

$ ! 

$ epp -x -i lb:[l,l]|sy:[l0,10] |sy:[l,3] -o sy: [l,3]cl.tmp sy:[l,3]u.h [l,3]body.c 

$ cpl -o sy:[l,3]c2.tmp sy: [l,3]cl.tmp 

$ cp2 -o sy: [l,3]c3.tmp sy:[l,3]c2.tmp 

$ mac body=c3.tmp 

$ lbr rthuni/rp=body 

$ delete/log cl.tmp;*,c2.tmp;* ,c3.tmp;* 

$ exit 1 

$ abnormal_exit : 

$ exit 2 
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$ ! 

$ ! skeleton for bld.com 

$ ! 

$ if "" p i"» . nes . "?" then goto doit 

$ typ sys$input 

command file to build the task image 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required files: None 

required symbols: None 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ if ""pi"' .eqs. "" then $ pi = " ' ' f $logical( ff sys$disk ,f ) f ' f f $directory( ) 

$ set def 'pi' 

$ show def 

$ I 

$ ! Put your own commands here 

$ I 

$ ! Make assignment for QBUS RSX11M 

$ ! 

$ assign draO: [qbusllm. ] lb: 

$ copy/log prologue. sav prologue. olb 

$ open/write lnkdrv tkb.cmd 

$ write lnkdrv ,f RTHACP/AC:5/-CP,RTHACP/-sp/CR=" 

$ write lnkdrv M RTH/LB:CMDTAB,ACPUCB,DQPKT,RWPORT,RTHMAC,UCOPY,SCOPY" 

$ write lnkdrv "sy: [l,3]PR0L0GUE/LB,LB: [ 1, 1JEXELIB/LB" 

$ write lnkdrv "LB:[l,54]RSXllM.STB" 

$ write lnkdrv "/" 

$ write lnkdrv "UNITS=7 H 

$ write lnkdrv M TASK=. . .RTH 11 

$ write lnkdrv "GBLPAT=CMDTAB:ZEPORT:4000 M 

$ write lnkdrv M GBLPAT=CMDTAB:ZEINT:400 H 

$ write lnkdrv "//" 

$ close lnkdrv 

$ tkb @tkb.cmd 

$ delete tkb.cmd; 

$ deassign lb 

$ ! 

$ ! Make assignment for UNIBUS RSX11M 

$ ! 

$ assign draO: [unillm. ] lb: 

$ open/write lnkdrv tkb.cmd 

$ write lnkdrv ,l RTHACPUNl/AC:5/-CP,RTHACPUNl/-sp/CR=" 

$ write lnkdrv "RTHUNl/LB:CMDTAB,ACPUCBU,DQPKTUNI ,RWPORTUNl" 
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$ write Inkdrv "RTHMACUNI ,UCOPYUNI ,SCOPYUNl" 

$ write Inkdrv "UNIMAC" 

$ write Inkdrv "sy: [1,3] PROLOGUE/LB, LB: [ l,l]EXELIB/LB" 

$ write Inkdrv "LB: [1,54]RSX11M.STB" 

$ write Inkdrv "/" 

$ write Inkdrv "UNITS=7" 

$ write Inkdrv "TASK=. . .RTH 11 

$ write Inkdrv "GBLPAT=CMDTAB:ZEPORT:4000" 

$ write Inkdrv "GBLPAT=CMDTAB:ZEINT:400" 

$ write Inkdrv "//" 

$ close Inkdrv 

$ tkb @tkb.cmd 

$ delete tkb.cmd; 

$ deassign lb 

$ ! 

$ ! Make assignment for UNIBUS RSXllM-Plus 

$ ! 

$ assign draO: [unillmp. J lb: 

$ open/write Inkdrv tkb.cmd 

$ write Inkdrv "RTHACPUP/AC:5/-CP,RTHACPUP/-sp/CR=" 

$ write Inkdrv "RTHUP/LB:CMDTAB,ACPUCBU,DQPKTUP,RWPORTUP M 

$ write Inkdrv "RTHMACUP,UCOPYUP,SCOPYUP" 

$ write Inkdrv "UPMAC" 

$ write Inkdrv "sy: [l ,3]PR0L0GUE/LB,LB: [ l,l]EXELIB/LB" 

$ write Inkdrv "LB: [ 1,54]RSX11M.STB" 

$ write Inkdrv "/" 

$ write Inkdrv "UNITS=7" 

$ write Inkdrv "TASK= . . . RTH" 

$ write Inkdrv "GBLPAT=CMDTAB:ZEPORT:4000" 

$ write Inkdrv "GBLPAT=CMDTAB:ZEINT:400" 

$ write Inkdrv "//" 

$ close Inkdrv 

$ tkb @tkb.cmd 

$ delete tkb.cmd; 

$ deassign lb 

$ exit 1 

$ abnormal_exit : 

$ deassign lb 

$ exit 2 
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$ ! 

$ ! skeleton for cmplbr.com 

$ ! 

$ if "'•pi'" -nes. "?" then goto doit 

$ typ sys$input 

command file to compile and link the library 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required files: 
none 

required symbols: 
none 

Note: 

You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ ! 

$ ! now make assignment for RSX11M Q-bus version 

$ ! 

$ assign draO: [qbusllm. ] lb: 

$ assign draO: [qbusllm. ] lbO: 

$ if ""pi™ .eqs. "" then $ pi = tM 'f $logical("sys$disk") ' ' ' f $directory( ) '" 

$ set def 'pi' 

$ show def 

$ show logical lb 

$ ! 

$ ! now set up environment for C compiler 

$ ! 

$ cpp == "mcr cpp" 

$ cpl == "mcr cpl" 

$ cp2 == "mcr cp2" 

$ assign draO: [albert .cutil]cpp.exe cpp 

$ assign draO: [albert .cutil]cpl.exe cpl 

$ assign draO: [albert .cutiljcp2.exe cp2 

$ ! 

$ ! go compile all the files 

$ ! 

$ lbr rth/cr 

$ mac rwpor t , rwport /-sp=lb : [ 1 , 1 ] exemc /ml , lb : [ 1 1 , 10 ] r sxmc , sy : [ 1 , 3 ] rwpor t 

$ mac ucopy ,ucopy/-sp=lb: [ 1 , 1 ] exemc /ml ,1b: [ 11 , 10 ]r sxmc , sy: [ 1 ,3]ucopy 

$ mac scopy , scopy/-sp=lb: [ 1 , 1 lexeme /ml ,1b: [ 11 , 10 ]r sxmc , sy: [ 1 ,3] scopy 

$ mac acpucb,acpucb/-sp=lb:[l,l]exemc/ml,lb: [ 11 ,10]rsxmc, sy: [l,3]acpucb 

$ mac rthmac,rthmac/-sp=lb: [ 1 , l] exemc /ml ,1b: [ 11,10 ]r sxmc, sy: [l,3]rthmac 



Oct 17 16:26 1985 cmplbr.com Page 2 

$ mac dqpkt ,dqpkt /-sp=lb: [ 1 , 1 ]exemc/ml , lb: [ 11 , 10 ]rsxmc , sy : [ 1 ,3 ]dqpkt 

$ ! 

$ ! C program 

$ ! 

$ cpp -x -i lb:[l,l]|sy:[l0,10]|sy:[l,3] -o sy: [l,3]cl.tmp sy:[l,3]body.c 

$ cpl -o sy:[l,3]c2.tmp sy: [l,3]cl.tmp 

$ cp2 -o sy:[l,3]c3.tmp sy:[l,3]c2.tmp 

$ mac body=c3.tmp 

$ lbr rth/rp=body 

$ delete/log cl.tmpp , Sc2.tmp;*,c3.tmp;* 

$ @altcmplbr 

$ @umpcmplbr 

$ exit 1 

$ abnormal_exit: 

$ exit 2 
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$ ! 

$ ! skeleton for deliver.com 

$ ! 

$ if ,,l, pl MI .nes. "?" then goto doit 

$ typ sys$input 

command file to copy the deliver files to manufacturing area 
You should modify this file to copy the deliverables to 
exos$mfg: [target directory] 



required command files: None 

required logical names: None 

exos$mfg - pseudo disk for deliverables 

required parameters: Noe 

required files: None 

required symbols: None 

exit 

doit: 

sv = f$verify(0) 

on error then $ goto abnormal_exit 

assign nowhere sys$print 

show def 

! 

! Put your own commands here 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ ! 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ copy/log 

$ exit 1 

$ abnormal_exit: 

$ exit 2 



bldacp.cmd 

rth.olb 

rwport .mac 

ucopy.mac 

scopy.mac 

acpucb.mac 

rthmac.mac 

dqpkt .mac 

prologue. olb 

unibus.mac 

rthuni.olb 

unimac.mac 

blduni .cmd 



exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 
exos$mfg 



[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsx] 

[rsxunibus] 

[rsxunibus] rth.olb 

[rsxunibus] 

[ rsxunibus ]bldacp . cmd 
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$ ! 

$ ! skeleton for cmplbr.com 

$ ! 

$ if ""pi'" .nes. "?" then goto doit 

$ typ sys$input 

command file to compile and link the library 

required command files: None 

required logical names: None 

required parameters: 

pi - default directory (default - current directory) 

required files: 
none 

required symbols: 
none 

Note: 

You need to edit this file to setup the symbols objlib and inclib as the 
file specifications for the the object and include libraries 

$ exit 

$ doit: 

$ sv = f$verify(l) 

$ on error then $ goto abnormal_exit 

$ assign nowhere sys$print 

$ ! 

$ ! now make assignment for RSXllM-Plus UNIBUS version 

$ ! 

$ assign draO: [unillmp. ] lb: 

$ assign draO: [unillmp. ] lbO: 

$ if " M pF" .eqs. "" then $ pi = "' ' f $logical(' , sys$disk ,, ) ' f $directory( ) 

$ set def 'pi 1 

$ show def 

$ show logical lb 

$ ! 

$ ! now set up environment for C compiler 

$ ! 

$ cpp == "mcr cpp" 

$ cpl == "mcr cpl" 

$ cp2 == "mcr cp2" 

$ assign draO: [albert .cutillcpp.exe cpp 

$ assign draO: [albert .cutillcpl.exe cpl 

$ assign draO: [albert .cutillcp2.exe cp2 

$ ! 

$ ! go compile all the files 

$ ! 

$ lbr rthup/cr 

$ mac rwportup,rwportup/-sp=lb: [ 1 , 1 ]exemc/ml , lb: [ 11 , 10 Jrsxmc , sy : L 1 ,3 Jrwport 

$ mac ucopyup,ucopyup/-sp=lb: [ 1 , 1 lexeme/ml , lb: [ 11 , 10]rsxmc , sy : [ 1 , 3]ucopy 

$ mac scopyup , scopyup/-sp=lb: [ 1 , 1 ]exemc/ml , lb : [ 1 1 , 10 ]rsxmc , sy : [ 1 , 3 ] scopy 

$ mac acpucbu,acpucbu/-sp=lb: [ 1 , 1 lexeme/ml ,1b: [ 11 , 10]rsxmc , sy: [ 1 ,3]unibus ,acpucb 

$ mac upmac,upmac/-sp=lb: [ 1 , 1 lexeme/ml ,1b: [ 11 , 10]rsxmc , sy: [ 1 ,3]unimac 
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$ mac rthmacup,rthmacup/-sp=lb: [ 1 , 1 jexemc/ml ,1b: [ 11 , lOJrsxmc , sy: [ 1 ,3]rthmac 
$ mac dqpktup,dqpktup/-sp=lb: [ 1 , 1 jexemc/ml ,1b: [ 11 , 10]rsxmc , sy : [ 1 ,3]dqpkt 

$ ! 

$ ! C program 

$ ! 

$ cpp -x -i lb:[l,l]|sy:[l0,10]|sy:[l,3] -o sy:[l,3]cl.tmp sy:[l,3]u.h [l,3]body.c 

$ cpl -o sy:[l,3]c2.tmp sy: [l,3]cl.tmp 

$ cp2 -o sy: [l,3]c3.tmp sy: [l,3]c2.tmp 

$ mac body=c3.tmp 

$ lbr rthup/rp=body 

$ delete/log cl.tmp;*,c2.tmp;*,c3.tmp;* 

$ exit 1 

$ abnormal_exit: 

$ exit 2 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 

SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 

EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 

.ENABLE QUIET 

.ENABLE LOWERCASE 

.ENABLE GLOBAL 

.ENABLE SUBSTITUTION 
.IFT <PRIVIL> .GOTO 5 

; Error: You must be privileged in order to install EXOS 8030 software. 
.EXIT 
.5: 

.DISABLE DISPLAY 

.ASK $VRBS Verbose? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

.ASK $DEL Delete source file from current UFD in target disk? [Y/N] 

.ASK $DRV Build driver and ACP only? [Y/N] 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.SETS $PORT "4000" 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 

.SETN $SESS 1 

.ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D : l] 

This command file copies the required files from the distribution 
floppy 

Ask for source device name 

.ASKS $DEV Copy from device [ddnn:]: 

check if the device is mounted and mount if necessary 

TESTDEVICE ^DEV* 

TEST <EXSTRI> "MTD" 

IF <STRLEN> NE .GOTO 10 

device not mounted 
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MOU ^DEV'EXOSl 

start copy 



.10: 

PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD- 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
DMO '$DEV' 



'$DEV' 


Ci> 


'^DEV' 


Ci> 


'$DEV f 


IX 


'$DEV* 


[1» 


'$DEV f 


U, 


'^DEV* 


[1» 


'$DEV' 


Cl, 


'^DEV' 


Ci> 


'$DEV' 


Cl, 


'$DEV f 


[1, 


'$DEV' 


[1, 


^DEV 1 


Ci» 


'$DEV' 


[1, 



1]BLDDRV.CMD/NM 

l]ZEDRV.MAC/NM 

1]ZETAB.MAC/NM 

l]RTH.OLB/NM 

lJACPUCB.MAC/NM 

i]dqpkt.mac/nm 
i]rwport.mac/nm 

l]SCOPY.MAC/NM 
l]UC0PY.MAC/NM 
lJRTHMAC.MAC/NM 

i]bldacp.cmd/nm 
1] prologue. olb/nm 

l]bldzt.cmd/NM 



Please mount floppy labelled EXOS2 in f $DEV' 



.ASK MONT Press return when ready: 

MOU '$DEV'EX0S2 

PIP /NV/CD= f $DEV'[l,l] 

PIP /NV/CD='$DEV'[1,1] 

PIP /NV/CD='$DEV f [l,l] 

PIP /NV/CD= , $DEV'[1,1] 

PIP /NV/CD= f $DEV'[l,l] 

PIP /NV/CD= , $DEV'[1,1] 

DMO f $DEV f 



zttab.MAC/NM 

ztyt.MAC/NM 

ztini.MAC/NM 

ztrw.MAC/NM 

ztich.MAC/NM 

ztcan.MAC/NM 



Please mount floppy labelled EXOS3 in ! $DEV' 



.ASK MONT Press r 
MOU '$DEV'EX0S3 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
PIP /NV/CD='$DEV 
.15: 



eturn when ready: 

l,l]ztatt.MAC/NM 

l,l]ztois.MAC/NM 

l,l]ztdat.MAC/NM 

l,l]zttbl.MAC/NM 

l,l]ztsub.MAC/NM 

l,l]ztcis.MAC/NM 

l,l]ztfp.MAC/NM 

l,l]ztodn.MAC/NM 

l,l]ztmis.MAC/NM 

l,l]ztmod.MAC/NM 

l,l]ztmac.MAC/NM 



build the driver 



@BLDDRV 

.IFT $DEL PIP BLDDRV.CMD; /DE 

• * 

.; build the pseudo-terminal driver 

@BLDZT 
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IFT $DEL PIP BLDZT.CMD; /DE 

build the ACP 

@BLDACP 
IFT $DEL .AND .IFT $DRV PIP PROLOGUE. OLB; /DE 
IFT $DEL PIP RTH.OLB;/DE 
IFT $DEL PIP BLDACP.CMD; /DE 

Now copy utilities to various destination location 

IFT $DRV DMO f $DEV f 

IFT $DRV .EXIT 

20: 

ASKS DESTUI Please enter the UFD for the EXOS utilities 

IF DESTUI = "" .GOTO 20 

Copy task image 

IFF $NOPRE .GOTO 25 
PIP ' DESTUI' ARP.TSK;*/DE 
PIP 'DESTUI 'BSTAT.TSK;*/DE 
PIP 'DESTUI 'NETLOAD.TSK;*/DE 
PIP 'DESTUI 'NETSTAT.TSK;*/DE 
PIP 'DESTUI 'TTCP.TSK;*/DE 
PIP ' DESTUI' XROUTE.TSK;*/DE 
PIP 'DESTUI 'ftpc.tsk;*/de 
PIP 'DESTUI 'FTPDEMON.TSK;*/DE 
PIP 'DESTUI ' TELNET. TSK;*/DE 
PIP 'DESTUI' LOGIN. TSK;*/DE 
PIP 'DESTUI 'FTPD.TSKJ*/DE 

25: 
DMO '$DEV' 

Please mount floppy labelled EX0S4 in '$DEV' 

ASK MONT Press return when ready: 
MOU *$DEV'EXOS4 

PIP /FO/NV/CD= ' $DEV' [1,1 ]LOGIN.OLB/NM 
PIP /FO/NV/CD='$DEV'[l,l]PASWORD.MAC/NM 
PIP /FO/NV/CD='$DEV'[l,l]ACTFIL.MAC/NM 
PIP /FO/NV/CD='$DEV'[l,l]BLDLGN.CMD/NM 
@BLDLGN 

.IFT $DEL PIP LOGIN. 0LB;*/DE 
.IFT $DEL PIP BLDLGN.CMD ;*/DE 

PIP 'DESTUI '/FO/CO/NV/CD=SY:'<UIC>'LOGIN.TSK/NM 
PIP LOGIN. TSK;/DE/NM 

PIP /FO/NV/CD= ' $DEV' [ 1 , 1 ] DEMON. OLB /NM 
PIP /FO/NV/CD=' $DEV' [1,1 ]RECVAST.MAC/NM 
PIP /FO/NV/CD='$DEV'[l,l]BLDDEM.CMD/NM 
PIP /FO/NV/CD= ' $DEV' [ 1 , 1 ] DEMON. MAC /NM 
@BLDDEM 

•IFT $DEL PIP DEMON. OLB ;*/DE 
,;.IFT $DEL PIP RECVAST.MAC;*/DE 
.IFT $DEL PIP BLDDEM.CMD ;*/DE 
.IFT $DEL PIP PROLOGUE. OLB ;^/DE 
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PIP , DESTUI l /FO/CO/NV/CD=SY: ^UIO'FTPDEMON.TSK/NM 
PIP FTPDEMON.TSK;/DE/NM 

PIP ' DESTUI ' /FO/CO/NV/CD= " $DEV '[1,1 ] ARP . TSK/NM 
PIP ' DESTUI '/FO/CO/NV/CD='$DEV'[l,l]BSTAT. TSK/NM 
PIP ' DESTUI ' /FO/CO/NV/CD= ' $DEV ' [ 1 , 1 ]NETLOAD . TSK/NM 

DMO '$DEV' 

• 
» 

; Please mount floppy labelled EX0S5 in '$DEV' 

* 

.ASK MONT Press return when ready: 

MOU '$DEV'EX0S5 

PIP 'DESTUI' /FO/CO/NV/CD^DEV'UjljNETSTAT. TSK/NM 

PIP ' DESTUI '/FO/CO/NV/CD^DEV'CljljTTCP. TSK/NM 

PIP ' DESTUI ' /F0/C0/NV/CD= ' $DEV ' [ 1 , 1 JXROUTE . TSK/NM 

PIP 'DESTUI' /F0/C0/NV/CD='$DEV'[1,1]FTPC. TSK/NM 

PIP 'DESTUI '/F0/C0/NV/CD='$DEV , [1,1]TELNET. TSK/NM 

DMO '$DEV' 

« 

; Please mount floppy labelled EX0S6 in '$DEV' 

» 

.ASK MONT Press return when ready: 

MOU '$DEV'EX0S6 

PIP ' DESTUI '/F0/C0/NV/CD='$DEV'[1,1]FTPD. TSK/NM 

copy specific programs 

IFT $N0PRE PIP ' DESTUI' RH0ST.C;*/DE 

IFT $N0PRE PIP 'DESTUI 'RADDR.C;*/DE 

IFT $N0PRE PIP 'DESTUI' SOCKET. C;*/DE 

IFT $N0PRE PIP 'DESTUI 'TTCP.C;*/DE 

IFT $N0PRE PIP 'DESTUI 'TTCP.H;*/DE 

IFT $N0PRE PIP LB:[1,2]NET.;*/DE 

IFT $N0PRE PIP 'DESTUI' 8030. HLP;*/DE 
PIP 'DESTUI" /FO/NV/CD='$DEV'[l,l]RHOST.C/NM 
PIP » DESTUI ' /FO/NV/CD= ' $DEV ' [ 1 , 1 ]RADDR. C/NM 
PIP 'DESTUI 7FO/NV/CD='$DEV'[ 1,1] SOCKET. C/NM 
PIP ' DESTUI '/F0/NV/CD='$DEV'[1,1]TTCP. C/NM 
PIP ' DESTUI 7FO/NV/CD='$DEV'[l,l]TTCP.H/NM 
PIP LB:[l,2]/FO/NV/CD='$DEV'[l,l]NET./NM 
PIP 'DESTUI '/FO/NV/CD='$DEV'[1,1]8030.HLP/NM 

.ASK INITHO Do you want to initialize the network addresses file (H0STS.NET) 
.IFF INITHO .GOTO SETLD 
.IFT $NOPRE PIP LB:[l,ljHOSTS.NET;*/DE 
PIP LB : [ 1 , 1 ] /FO/NV/CD= ' $DEV ' [ 1 , 1 ]HOSTS .NET/NM 
.OPENA LB: [1,1] HOSTS. NET 
.ASKS HNAME Name of host 
.ASKS HADDR Host internet address 
.DATA 'HADDR' » HNAME' localhost 
.CLOSE 

.IFT $NOPRE PIP LB:[1,1]H0STL0CAL.NET;*/DE 
PIP LB : [ 1 , 1 ] /F0/NV/CD= * $DEV ' [ 1 , 1 ]HOSTLOCAL .NET/NM 

Write out the EXOSLOAD command file 

.SETLD: 

.IFT $NOPRE PIP LB: [l,l] EXOSLOAD. CMD;*/DE 
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,80$: 



,89$: 



-OPEN LB: [1,1] EXOSLOAD.CMD 
.DATA .ENABLE SUBSTITUTION 
,DATA . I FACT DEMTO ABO DEMTO 
,DATA . I FACT LGNTO ABO LGNTO 
,DATA .IFACT ...DEM ABO ...DEM 
,DATA .IFACT ...LGN ABO ...LGN 
,SETN LCOUNT 

,IF LCOUNT >= '$SESS' .GOTO 89$ 

,DATA .IFACT FTDOO 'LCOUNT' ABO FTDOO' LCOUNT* 

,DATA .IFINS FTDOO 1 LCOUNT' 

,DATA .IFINS XDROO 'LCOUNT' 

,INC LCOUNT 

,GOTO 80$ 



REM FTDOO 'LCOUNT' 
REM XDROO 'LCOUNT' 



.DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
,DATA 
.DATA 
,DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 

■ DATA 
.DATA 

■ DATA 
.DATA 

■ DATA 
.DATA 
.DATA 
.DATA 
.DATA 
• DATA 
.DATA 
.DATA 
.DATA 
.DATA 
.DATA 



.IFINS 
.IFINS 
.IFINS 
.IFINS 
.IFINS 
•IFINS 
.IFINS 
.IFINS 
.IFINS 
.IFINS 
.IFACT 



...TEL 
...TTC 



...DEM REM ...DEM 

...ARP REM ...ARP 

...BST REM ...BST 

...FTP REM ...FTP 

...NET REM ...NET 

...TEL REM 

...TTC REM 

...ROU REM ...ROU 

...NST REM ...NST 

...LGN REM ...LGN 

...RTH ABO ...RTH 
.IFACT RTHTO ABO RTHTO 
.IFINS ...RTH REM ...RTH 
.IF <SYSTEM> <> 6 .GOTO 10$ 
.IFLOA ZE: CON OFFLINE ZEA 
.IFLOA ZE: CON OFFLINE ZEO: 
.IFNLOA ZT: .GOTO 10$ 
CON OFFLINE ZTA 
CON OFFLINE ZTB 
CON OFFLINE ZTC 
CON OFFLINE ZTD 
CON OFFLINE ZTE 
CON OFFLINE ZTF 
CON OFFLINE ZTH 
CON OFFLINE ZTJ 
CON OFFLINE ZTO: 
CON OFFLINE ZT1 : 
CON OFFLINE ZT2: 
CON OFFLINE ZT3: 
CON OFFLINE ZT4: 
CON OFFLINE ZT5 : 
CON OFFLINE ZT6: 
CON OFFLINE ZT7 : 
.10$: 

.IFLOA ZE: UNL ZE: 
.IFLOA ZT: UNL ZT: 
LOA ZE:/PAR=GEN/HIGH/SIZE=20000 
.IF <SYSTEM> <> 6 LOA ZT: 
.IF <SYSTEM> <> 6 UNL ZT: 

; You can ignore the error message: "Loadable driver larger than 4KW" 
LOA ZT:/HIGH/SIZE=20000 
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.90$: 



.DATA .IF <SYSTEM> <> 6 .GOTO 20$ 

.DATA ; configure the devices online 

.DATA CON ONLINE ZEA 

.DATA CON ONLINE ZEO: 

.DATA CON SET ZTA VEC=0 

.DATA CON SET ZTB VEC=0 

.DATA CON SET ZTC VEC=0 

.DATA CON SET ZTD VEC=0 

.DATA CON SET ZTE VEC=0 

.DATA CON SET ZTF VEC=0 

.DATA CON SET ZTH VEC=0 

.DATA CON SET ZTJ VEC=0 

.DATA CON ONLINE ALL 

.DATA .20$: 

.DATA INS $RTHACP/PRI=150. 

.DATA .XQT RTH 

.DATA INS 'DESTUI »ARP. TSK 

.DATA INS 'DESTUI'BSTAT.TSK 

.DATA INS 'DESTUI 'FTPC. TSK 

.DATA INS 'DESTUI 'FTPDEMON. TSK 

.DATA INS 'DESTUI 'NETLOAD. TSK 

.DATA INS 'DESTUI ' TELNET. TSK 

.DATA INS ' DESTUI' TTCP. TSK 

.DATA INS 'DESTUI 'XROUTE. TSK 

.DATA INS 'DESTUI 'NETSTAT. TSK 

.DATA INS 'DESTUI 'LOGIN. TSK 

.SETN LCOUNT 

.DATA .SETS FTDOPT "" 

.DATA .IF <SYSTEM> = 6 .SETS FTDOPT "/XHR=NO" 



.IF LCOUNT >= '$SESS' .GOTO 99$ 

. DATA INS ' DESTUI ' FTPD . TSK/TASK=FTD00 ' LCOUNT ' ' ' FTDOPT ' ' 

.DATA INS $PIP/TASK=XDR00' LCOUNT' 

.INC LCOUNT 

.GOTO 90$ 



,99$: 



.DATA .ASK DWN Do you want to initialize the EXOS front end processor 

.DATA .IFT DWN net 

.DATA .ASK DMN Do you want to start the FTP server 

.DATA .IFT DMN .XQT dem 

.DATA .IFT DMN .XQT lgn 

.CLOSE 

PIP LB:[l,l]EXOSLOAD.CMD/PR/FO 

Please add the following line to LB :[ 1 , 2 ] STARTUP . CMD so that the 
network is reloaded everytime the system is rebooted. 

@LB:[l,l]EXOSLOAD 

You may need to edit the file LB: [ 1 , 1] EXOS LOAD. CMD to set up the 
options in loading the network module. 



dismount device 
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DMO '$DEV' 



Installation completed. Now you can execute 

@LB:[1,1]EX0SL0AD 

to start up the network connection. 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 

SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 

EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 

.ENABLE QUIET 

.ENABLE LOWERCASE 

.ENABLE GLOBAL 

.ENABLE SUBSTITUTION 
.IFT <PRIVIL> .GOTO 5 

; Error: You must be privileged in order to install EXOS 8030 software. 
.EXIT 
.5: 

.DISABLE DISPLAY 

.ASK $VRBS Verbose? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

.ASK $DEL Delete source file from current UFD in target disk? [Y/N] 

.ASK $DRV Build driver and ACP only? [Y/N] 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.SETS $PORT "4000" 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 

.SETN $SESS 1 

.ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D : l] 

» 

; This command file copies the required files from the distribution 

; floppy 

» 

.; Ask for source device name 



• > 



• » 



.ASKS $DEV Copy from device [ddnn:]: 



.; check if the device is mounted and mount if necessary 



• » 



.TESTDEVICE '$DEV' 

.TEST <EXSTRI> M MTD ,f 

.IF <STRLEN> NE .GOTO 10 



device not mounted 
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MOU ^DEV'EXOSl 



start copy 



.10: 

PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
PIP /NV/CD= 
DMO ^DEV 1 



'$DEV' 


;i, 


f $DEV' 


il» 


'$DEV' 


"1, 


'iDEV* 


X 


^DEV 1 


X 


'$DEV f 


;i, 


'$DEV f 


;i, 


f $DEV'j 


;i, 


'^DEV'I 


;i, 


^DEV 1 ! 


!i, 


'^DEV'I 


;i, 


* $DEV ' I 


;i, 


•$DEV f | 


;i, 


f $DEV* I 


"i» 


'^DEV'I 


.i, 



,1 JBLDDRV.CMD /NM 

,l]UNIBUS.MAC/NM 

,l]ZEDRV.MAC/NM 

,l]ZETAB.MAC/NM 

,l]RTH.OLB/NM 

,l]ACPUCB.MAC/NM 

,i]dqpkt.mac/nm 
,i]rwport.mac/nm 

,l]UNIMAC.MAC/NM 

,l]SCOPY.MAC/NM 

,l]UCOPY.MAC/NM 

,l]RTHMAC.MAC/NM 

,1 1bLDACP.CMD /NM 

,1]PR0L0GUE.0LB/NM 

,l]bldzt.cmd/NM 



Please mount floppy labelled EX0S2 in f $DEV' 



.ASK MONT Press return when ready: 

MOU '$DEV'EX0S2 

PIP /NV/CD='$DEV'[ 

PIP /NV/CD='$DEV , [ 

PIP /NV/CD='$DEV f [ 

PIP /NV/CD='$DEV'[ 

PIP /NV/CD= f $DEV'[ 

PIP /NV/CD= f $DEV'[ 

DMO ^DEV' 



l,l]zttab.MAC/NM 

l,l]ztyt.MAC/NM 

l,l]ztini.MAC/NM 

l,l]ztrw.MAC/NM 

l,l]ztich.MAC/NM 

l,l]ztcan.MAC/NM 



Please mount floppy labelled EX0S3 in '$DEV' 



.ASK MONT 
MOU f $DEV' 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
PIP /NV/CD 
.15: 



Press ret 
EXOS3 

'$DEV' 

'$DEV' 

»$DEV' 

f $DEV' 

'$DEV' 

'$DEV f 

•$DEV f 

'$DEV f 

'$DEV* 

•$DEV f 

'$DEV' 



urn when ready: 

,l]ztatt.MAC/NM 

,l]ztois.MAC/NM 

,l]ztdat.MAC/NM 

,l]zttbl.MAC/NM 

,l]ztsub.MAC/NM 

,l]ztcis.MAC/NM 

,l]ztfp.MAC/NM 

,l]ztodn.MAC/NM 

, l]ztmis.MAC/NM 

,l]ztmod.MAC/NM 

, l]ztmac.MAC/NM 



build the driver 



@BLDDRV 

.IFT $DEL PIP BLDDRV.CMD; /DE 
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.; build the pseudo-terminal driver 
@BLDZT 
I FT $DEL PIP BLDZT.CMD; /DE 

build the ACP 

@BLDACP 
IFT $DEL .AND .IFT $DRV PIP PROLOGUE . OLB ; /DE 
IFT $DEL PIP RTH.OLB;/DE 
IFT $DEL PIP BLDACP.CMD; /DE 

Now copy utilities to various destination location 

IFT $DRV DMO '$DEV' 

IFT $DRV .EXIT 

20: 

ASKS DESTUI Please enter the UFD for the EXOS utilities 

IF DESTUI = "" .GOTO 20 

Copy task image 

IFF $NOPRE .GOTO 25 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
.25: 
DMO '$DEV f 



DESTUI ' ARP.TSK;*/DE 
DESTUI' BSTAT.TSK;*/DE 
DESTUI 'NETLOAD.TSK;*/DE 
DESTUI' NETSTAT.TSK;*/DE 
DESTUI ' TTCP . TSK ; */DE 
DESTUI 'XROUTE.TSK;*/DE 
DESTUI 'FTPC.TSK;*/DE 
DESTUI 'FTPDEMON.TSK;*/DE 
DESTUI' TELNET. TSK;*/DE 
DESTUI ' LOGIN. TSK;*/DE 
DESTUI ' FTPD . TSK ; */DE 



; Please mount floppy labelled EXOS4 in ! $DEV' 

« 
» 

.ASK MONT Press return when ready: 

MOU '$DEV*EXOS4 

PIP /FO/NV/CD=' $DEV' [ 1 , l] LOGIN. OLB /NM 

PIP /FO/NV/CD='$DEV'[l,l]PASWORD.MAC/NM 

PIP /FO/NV/CD= ' $DEV '[1,1 ]ACTFIL.MAC/NM 

PIP /FO/NV/CD=' $DEV' [ 1 , 1 JBLDLGN.CMD /NM 

(3BLDLGN 

.IFT $DEL PIP LOGIN. OLB ;*/DE 

•IFT $DEL PIP BLDLGN.CMD ;*/DE 

PIP f DESTUI '/FO/CO/NV/CD=SY:'<UIC>' LOGIN. TSK/NM 

PIP LOGIN. TSK;/DE/NM 

PIP /FO/NV/CD= ' $DEV' [ 1 , 1 ] DEMON. OLB/ NM 

PIP /FO/NV/CD='$DEV'[l,l]RECVAST.MAC/NM 

PIP /FO/NV/CD='$DEV'[l,l]BLDDEM.CMD/NM 

PIP /FO/NV/CD=' $DEV' [ 1 , 1 ] DEMON. MAC /NM 

@BLDDEM 

.IFT $DEL PIP DEMON. OLB ;*/DE 

.;.IFT $DEL PIP RECVAST.MAC*,*/DE 
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.IFT $DEL PIP BLDDEM.CMD ;*/DE 

.IFT $DEL PIP PROLOGUE. OLB;*/DE 

PIP ' DESTUI ' /FO/CO/NV/CD=SY : ' <UIC> ' FTPDEMON . TSK/NM 

PIP FTPDEMON. TSKj/DE/NM 

PIP ' DESTUI '/FO/CO/NV/CD='$DEV'[l,l]ARP. TSK/NM 

PIP 'DESTUI '/FO/CO/NV/CD='$DEV'[l,l]BSTAT. TSK/NM 

PIP 'DESTUI ' /FO/CO/NV/CD=' $DEV' [1,1 ]NETLOAD. TSK/NM 

DMO '$DEV' 

; Please mount floppy labelled EX0S5 in '$DEV' 

» 

.ASK MONT Press return when ready: 

MOU '$DEV'EX0S5 

PIP ' DESTUI ' /FO/CO/NV/CD= ' $DEV '[1,1 ]NETSTAT . TSK/NM 

PIP ' DESTUI 7F0/C0/NV/CD='$DEV'Cl,l]TTCP. TSK/NM 

PIP ' DESTUI '/F0/C0/NV/CD='$DEV'[1,1]XR0UTE. TSK/NM 

PIP 'DESTUI 7F0/C0/NV/CD='$DEV'[1,1]FTPC. TSK/NM 

PIP ' DESTUI ' /FO/CO/NV/CD= ' $DEV ' [ 1 , 1 JTELNET . TSK/NM 

DMO '$DEV' 

• 
» 

; Please mount floppy labelled EX0S6 in '$DEV' 

.ASK MONT Press return when ready: 

MOU '$DEV'EX0S6 

PIP ' DESTUI '/FO/CO/NV/CD='$DEV'[l,l]FTPD. TSK/NM 

copy specific programs 

IFT $NOPRE PIP 'DESTUI 'RHOST.C;*/DE 

IFT $NOPRE PIP 'DESTUI 'RADDR.C;*/DE 

IFT $NOPRE PIP 'DESTUI' SOCKET. C;*/DE 

IFT $NOPRE PIP 'DESTUI 'TTCP.C;*/DE 



IFT $NOPRE PIP ' DESTUI 'TTCP 
IFT $NOPRE PIP LB:[1,2]NET. 
IFT $NOPRE PIP 'DESTUI '8030 
PIP 'DESTUI 7FO/NV/CD='$DEV' 
PIP ' DESTUI 7FO/NV/CD='$DEV' 
PIP ' DESTUI 7FO/NV/CD='$DEV' 
PIP 'DESTUI 7FO/NV/CD='$DEV' 
PIP ' DESTUI 7FO/NV/CD='$DEV' 
PIP LB:[l,2]/FO/NV/CD='$DEV' 
PIP 'DESTUI 7FO/NV/CD='$DEV' 



H;*/DE 

*/DE 

HLP;*/DE 

l,l]RHOST.C/NM 

1,1]RADDR.C/NM 

1,1] SOCKET. C/NM 

1,1]TTCP.C/NM 

1,1]TTCP.H/NM 

1,1]NET./NM 

1,1]8030.HLP/NM 

ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 
IFF INITHO .GOTO SETLD 
IFT $NOPRE PIP LB: [1,1] HOSTS. NET ;*/DE 
PIP LB:[l,l]/FO/NV/CD='$DEV'[l,l]HOSTS.NET/NM 
OPENA LB: [1,1] HOSTS. NET 
ASKS HNAME Name of host 
ASKS HADDR Host internet address 
DATA 'HADDR' ' HNAME' localhost 
CLOSE 

IFT $NOPRE PIP LB:[l,l]HOSTLOCAL.NET;*/DE 
PIP LB: [ 1 , 1 ] /FO/NV/CD= ' $DEV ' [ 1 , 1 ] H0STL0CAL.NET/NM 

Write out the EXOSLOAD command file 
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.SETLD: 

.IFT $NOPRE PIP LB:[1,1]EXOSLOAD.CMD;*/de 

.OPEN LB: [1,1] EXOSLOAD.CMD 

.DATA .ENABLE SUBSTITUTION 

.DATA . I FACT DEMTO ABO DEMTO 

.DATA . I FACT LGNTO ABO LGNTO 

.DATA .IFACT ...DEM ABO ...DEM 

.DATA .IFACT . . .LGN ABO ...LGN 

.SETN LCOUNT 
.80$: 

•IF LCOUNT >= '$SESS' .GOTO 89$ 

.DATA .IFACT FTDOO ' LCOUNT ' ABO FTDOO 1 LCOUNT' 

.DATA . I FINS FTDOO' LCOUNT' REM FTDOO ' LCOUNT ' 

.DATA .IFINS XDROO ' LCOUNT ' REM XDROO ' LCOUNT ' 

.INC LCOUNT 

.GOTO 80$ 
.89$: 

.DATA .IFINS ...DEM REM ...DEM 

.DATA .IFINS ...ARP REM ...ARP 

.DATA .IFINS ...BST REM ...BST 

.DATA .IFINS ...FTP REM ...FTP 

.DATA .IFINS ...NET REM ...NET 

•DATA .IFINS ...TEL REM ...TEL 

.DATA .IFINS ...TTC REM ...TTC 

.DATA .IFINS ...ROU REM ...ROU 

.DATA .IFINS ...NST REM . . .NST 

.DATA .IFINS ...LGN REM ...LGN 

.DATA .IFACT ...RTH ABO . . .RTH 

.DATA .IFACT RTHTO ABO RTHTO 

.DATA .IFINS ...RTH REM ...RTH 

.DATA .IF <SYSTEM> <> 6 .GOTO 10$ 

.DATA .IFLOA ZE: CON OFFLINE ZEA 

.DATA .IFLOA ZE: CON OFFLINE ZEO: 

.DATA .IFNLOA ZT: .GOTO 10$ 

.DATA CON OFFLINE ZTA 

.DATA CON OFFLINE ZTB 

.DATA CON OFFLINE ZTC 

.DATA CON OFFLINE ZTD 

.DATA CON OFFLINE ZTE 

.DATA CON OFFLINE ZTF 

.DATA CON OFFLINE ZTH 

•DATA CON OFFLINE ZTJ 

.DATA CON OFFLINE ZTO: 

.DATA CON OFFLINE ZT1: 

.DATA CON OFFLINE ZT2: 

.DATA CON OFFLINE ZT3: 

.DATA CON OFFLINE ZT4: 

.DATA CON OFFLINE ZT5: 

.DATA CON OFFLINE ZT6: 

.DATA CON OFFLINE ZT7: 

.DATA .10$: 

.DATA .IFLOA ZE: UNL ZE: 

.DATA .IFLOA ZT: UNL ZT: 

.DATA LOA ZE:/PAR=GEN/HIGH/SIZE=20000 

.DATA .IF <SYSTEM> <> 6 LOA ZT: 

.DATA .IF <SYSTEM> <> 6 UNL ZT: 
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.DATA ; You can ignore the error message: "Loadable driver larger than 4KW ,f 

.DATA LOA ZT:/HIGH/SIZE=20000 

.DATA .IF <SYSTEM> <> 6 .GOTO 20$ 

.DATA ; configure the devices online 

.DATA CON ONLINE ZEA 

.DATA CON ONLINE ZEO: 

.DATA CON SET ZTA VEC=0 

.DATA CON SET ZTB VEC=0 

.DATA CON SET ZTC VEC=0 

.DATA CON SET ZTD VEC=0 

.DATA CON SET ZTE VEC=0 

.DATA CON SET ZTF VEC=0 

.DATA CON SET ZTH VEC=0 

.DATA CON SET ZTJ VEC=0 

.DATA CON ONLINE ALL 

.DATA .20$: 

•DATA INS $RTHACP/PRI=150. 

•DATA .XQT RTH 

.DATA INS ' DESTUI' ARP.TSK 

.DATA INS 'DESTUI 'BSTAT.TSK 

.DATA INS 'DESTUI 'FTPC.TSK 

•DATA INS 'DESTUI 'FTPDEMON.TSK 

.DATA INS 'DESTUI 'NETLOAD.TSK 

.DATA INS 'DESTUI' TELNET. TSK 

.DATA INS 'DESTUI 'TTCP. TSK 

•DATA INS ' DESTUI 'XROUTE. TSK 

.DATA INS 'DESTUI'NETSTAT.TSK 

.DATA INS 'DESTUI * LOGIN. TSK 

.SETN LCOUNT 

.DATA .SETS FTDOPT "" 

.DATA .IF <SYSTEM> = 6 .SETS FTDOPT "/XHR=NO" 
.90$: 

.IF LCOUNT >= '$SESS' .GOTO 99$ 

. DATA INS ' DESTUI ' FTPD . TSK/TASK=FTD00 ' LCOUNT ' ! ' FTDOPT ' ' 

.DATA INS $PIP/TASK=XDR00' LCOUNT' 

.INC LCOUNT 

.GOTO 90$ 
.99$: 

.DATA .ASK DWN Do you want to initialize the EXOS front end processor 

.DATA .IFT DWN net 

.DATA .ASK DMN Do you want to start the FTP server 

.DATA .IFT DMN .XQT dem 

.DATA .IFT DMN .XQT lgn 

.CLOSE 

PIP LB:[l,l]EXOSLOAD.CMD/PR/FO 

Please add the following line to LB :[ 1 , 2 ] STARTUP . CMD so that the 
network is reloaded everytime the system is rebooted. 

@LB:[l,l]EXOSLOAD 

You may need to edit the file LB : [ 1 , 1 ] EXOSLOAD . CMD to set up the 
options in loading the network module. 
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.; dismount device 

DMO ^DEV' 

Installation completed. Now you can execute 

@LB:[1,1]EX0SL0AD 

to start up the network, connection. 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 

SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 

EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 

.ENABLE QUIET 

.ENABLE LOWERCASE 

.ENABLE GLOBAL 

.ENABLE SUBSTITUTION 
.IFT <PRIVIL> .GOTO 5 
.DISABLE QUIET 

; Error: You must be privileged in order to install EXOS 8030 software. 
.EXIT 
.5: 

.IF <UIC> = "[1,100]" .GOTO 7 
.DISABLE QUIET 

; Error: EXOS 8030 must be installed from UIC [ 1,100] 
.EXIT 
.7: 

.DISABLE DISPLAY 

.ASK $VRBS Verbose? [Y/N] 

.IFT $VRBS .DISABLE QUIET 

.ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

•ASK $DEL Delete source file from current UFD in target disk? [Y/N] 

.ASK $DRV Build driver and ACP only? [Y/N] 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.SETS $PORT "4000" 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 

.SETN $SESS 1 

.ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D : l] 

build the driver 

@BLDDRV 
IFT $DEL PIP BLDDRV.CMD ;/DE 

» 

; build the pseudo-terminal driver 
@BLDZT 
IFT $DEL PIP BLDZT.CMD; /DE 

; build the ACP 
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@BLDACP 

IFT $DEL .AND .IFT $DRV PIP PROLOGUE . OLB ; /DE 

IFT $DEL PIP RTH.OLB;/DE 

IFT $DEL PIP BLDACP.CMD; /DE 

Now copy utilities to various destination location 

IFT $DRV .EXIT 

20: 

ASKS DESTUI Please enter the UFD for the EXOS utilities 

IF DESTUI = "" .GOTO 20 

Copy task image 

IFF $NOPRE .GOTO 25 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
.25: 

@BLDLGN 

.IFT $DEL PIP LOGIN. OLB ;*/DE 
.IFT $DEL PIP BLDLGN.CMD ;*/DE 

PIP 'DESTUI' /RE/FO/CO/NV/CD=SY: '<UIC>' LOGIN. TSK/NM 
@BLDDEM 

.IFT $DEL PIP DEMON.OLB;*/DE 
.;.IFT $DEL PIP RECVAST.MAC;*/DE 
.IFT $DEL PIP BLDDEM.CMD ;*/DE 
.IFT $DEL PIP PROLOGUE. OLB ;*/DE 



1 DESTUI ' ARP . TSK ; */DE 
'DESTUI 'BSTAT. TSK ;*/DE 
' DESTUI ' NETLOAD . TSK ; */DE 
' DESTUI ' NETSTAT . TSK ; */DE 
'DESTUI 'TTCP. TSK ;*/DE 
' DESTUI 'XROUTE. TSK ;*/DE 
1 DESTUI ' FTPC . TSK ; */DE 
1 DESTUI ' FTPDEMON . TSK ; */DE 
'DESTUI 'TELNET. TSK ;*/DE 
'DESTUI 'LOGIN. TSK;*/DE 
'DESTUI 'FTPD. TSK ;*/DE 



PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 
PIP 



'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 
'DESTUI 



/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 
/RE/FO/CO/NV/CD=SY 



' <UIC> ' FTPDEMON . TSK/NM 
'<UIC>' ARP. TSK/NM 
' <UIC> ' BSTAT. TSK/NM 
' <UIC> ' NETLOAD . TSK/NM 
' <UIC> ' NETSTAT . TSK/NM 
'<UIC>»TTCP. TSK/NM 
' <UIC> ' XROUTE . TSK/NM 
'<UIC>' FTPC. TSK/NM 
'<UIC>' TELNET. TSK/NM 
'<UIC>' FTPD. TSK/NM 



copy specific programs 



IFT $NOPRE PIP 'DESTUI 'RHOST.C;*/DE 
IFT $NOPRE PIP 'DESTUI 'RADDR.C;*/DE 
IFT $NOPRE PIP 'DESTUI' SOCKET. C;*/DE 
IFT $NOPRE PIP 'DESTUI 'TTCP.C;*/DE 
IFT $NOPRE PIP 'DESTUI 'TTCP.H;*/DE 
IFT $NOPRE PIP LB:[1,2]NET.;*/DE 
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.IFT $NOPRE PIP t DESTUI , 8030.HLP;*/DE 

PIP » DESTUI ' /RE/FO/NV/CD=SY: ' <UIC> ' RHOST . C/NM 

PIP 'DESTUI 7RE/FO/NV/CD=SY: ! <UIC> f RADDR.C/NM 

PIP ' DESTUI 7RE/F0/NV/CD=SY:'<UIC>' SOCKET. C/NM 

PIP ' DESTUI ' /RE/FO/NV/CD=SY: ' <UIC> ' TTCP . C/NM 

PIP ' DESTUI ' /RE/FO/NV/CD=SY: ' <UIC> ' TTCP . H/NM 

PIP LB:[l,2]/RE/FO/NV/CD=SY:'<UIO'NET./NM 

PIP 'DESTUI 7RE/FO/NV/CD=SY: '<UIC>' 8030.HLP/NM 

.ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 

.IFF INITHO .GOTO SETLD 

.IFT $NOPRE PIP LB: [1,1] HOSTS. NET ;*/DE 

PIP LB:[1,1]/RE/F0/NV/CD=SY: '<UIC>' HOSTS.NET/NM 

.OPENA LB: [1,1] HOSTS. NET 

.ASKS HNAME Name of host 

.ASKS HADDR Host internet address 

.DATA 'HADDR' 'HNAME' localhost 

.CLOSE 

.IFT $NOPRE PIP LB:[1,1]H0STL0CAL.NET;*/DE 

PIP LB:[l,l]/RE/FO/NV/CD=SY: '<UIC>' HOSTLOCAL.NET/NM 

Write out the EXOSLOAD command file 

.SETLD: 

.IFT $NOPRE PIP LB: [1,1] EXOSLOAD. CMD;*/DE 

.OPEN LB: [1,1] EXOSLOAD.CMD 

.DATA .ENABLE SUBSTITUTION 

.DATA . I FACT DEMTO ABO DEMTO 

.DATA . I FACT LGNTO ABO LGNTO 

.DATA .IFACT ...DEM ABO ...DEM 

.DATA .IFACT ...LGN ABO ...LGN 

.SETN LCOUNT 
.80$: 

.IF LCOUNT >= '$SESS' .GOTO 89$ 

•DATA .IFACT FTDOO' LCOUNT' ABO FTDOO' LCOUNT' 

.DATA .IFINS FTDOO 'LCOUNT' REM FTDOO ' LCOUNT ' 

.DATA .IFINS XDROO 1 LCOUNT' REM XDROO ' LCOUNT ' 

.INC LCOUNT 



.GOTO 


80$ 








.89$: 










.DATA 


.IFINS 


...DEM 


REM 


...DEM 


.DATA 


.IFINS 


. . .ARP 


REM 


. . .ARP 


.DATA 


.IFINS 


...BST 


REM 


...BST 


.DATA 


.IFINS 


...FTP 


REM 


...FTP 


.DATA 


•IFINS 


...NET 


REM 


. . .NET 


.DATA 


.IFINS 


...TEL 


REM 


...TEL 


.DATA 


.IFINS 


...TTC 


REM 


...TTC 


.DATA 


.IFINS 


...ROU 


REM 


...ROU 


.DATA 


.IFINS 


...NST 


REM 


. . .NST 


.DATA 


.IFINS 


...LGN 


REM 


...LGN 


.DATA 


.IFACT 


...RTH 


ABO 


... RTH 


.DATA 


.IFACT 


RTHTO ABO RTHTO 


.DATA 


.IFINS 


... RTH 


REM 


... RTH 


.DATA 


.IF <SYSTEM> <> 6 


.GOTO 10$ 


.DATA 


.IFLOA 


ze: con offline zea 


.DATA 


.IFLOA 


ze: con offline zeo: 



.DATA .IFNLOA ZT: .GOTO 10$ 
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.DATA CON OFFLINE ZTA 
.DATA CON OFFLINE ZTB 
.DATA CON OFFLINE ZTC 
.DATA CON OFFLINE ZTD 
.DATA CON OFFLINE ZTE 
.DATA CON OFFLINE ZTF 
.DATA CON OFFLINE ZTH 
.DATA CON OFFLINE ZTJ 
.DATA CON OFFLINE ZTO: 
.DATA CON OFFLINE ZT1: 
.DATA CON OFFLINE ZT2: 
.DATA CON OFFLINE ZT3: 
.DATA CON OFFLINE ZT4: 
.DATA CON OFFLINE ZT5: 
.DATA CON OFFLINE ZT6: 
.DATA CON OFFLINE ZT7: 
.DATA .10$: 

.DATA .IFLOA ZE: UNL ZE: 
•DATA .IFLOA ZT: UNL ZT: 
.DATA LOA ZE:/PAR=GEN/HIGH/SIZE=20000 
.DATA .IF <SYSTEM> <> 6 LOA ZT: 
.DATA .IF <SYSTEM> <> 6 UNL ZT: 

.DATA ; You can ignore the error message: "Loadable driver larger than 4KW" 
.DATA LOA ZT:/HIGH/SIZE=20000 
.DATA .IF <SYSTEM> <> 6 .GOTO 20$ 
.DATA ; configure the devices online 
.DATA CON ONLINE ZEA 
.DATA CON ONLINE ZEO: 
.DATA CON SET ZTA VEC=0 
.DATA CON SET ZTB VEC=0 
.DATA CON SET ZTC VEC=0 
.DATA CON SET ZTD VEC=0 
.DATA CON SET ZTE VEC=0 
.DATA CON SET ZTF VEC=0 
.DATA CON SET ZTH VEC=0 
.DATA CON SET ZTJ VEC=0 
.DATA CON ONLINE ALL 
.DATA .20$: 

.DATA INS $RTHACP/PRI=150. 
.DATA .XQT RTH 
.DATA INS ' DESTUI 'ARP. TSK 
.DATA INS 'DESTUI 'BSTAT. TSK 
.DATA INS ' DESTUI 'FTPC. TSK 
.DATA INS 'DESTUI 'FTPDEMON. TSK 
.DATA INS 'DESTUI 'NETLOAD. TSK 
.DATA INS 'DESTUI 'TELNET. TSK 
.DATA INS ' DESTUI 1 TTCP. TSK 
.DATA INS 'DESTUI 'XROUTE. TSK 
.DATA INS ' DESTUI' NETSTAT. TSK 
.DATA INS 'DESTUI' LOGIN. TSK 
.SETN LCOUNT 
.DATA .SETS FTDOPT "" 

.DATA .IF <SYSTEM> = 6 .SETS FTDOPT "/XHR=NO" 
.90$: 

.IF LCOUNT >= '$SESS' .GOTO 99$ 

.DATA INS 'DESTUI 'FTPD.TSK/TASK=FTD00* LCOUNT" 'FTDOPT" 
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.DATA INS $PIP/TASK=XDR00 , LCOUNT' 
.INC LCOUNT 
.GOTO 90$ 

.99$; 

.DATA .ASK DWN Do you want to initialize the EXOS front end processor 

.DATA .IFT DWN net 

.DATA .ASK DMN Do you want to start the FTP server 

.DATA .IFT DMN .XQT dem 

.DATA .IFT DMN .XQT lgn 

.CLOSE 

PIP LB:[l,l]EXOSLOAD.CMD/PR/FO 

Please add the following line to LB :[ 1 , 2 ] STARTUP . CMD so that the 
network is reloaded everytime the system is rebooted. 

@LB:[ 1,1] EXOSLOAD 

You may need to edit the file LB : [ 1 , 1 ] EXOSLOAD . CMD to set up the 
options in loading the network module. 



Installation completed. Now you can execute 

@LB:[ 1,1] EXOSLOAD 

to start up the network connection. 
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COPYRIGHT (c) 1985 BY EXCELAN, INC. 

SAN JOSE, CALIFORNIA. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE AND WITH THE INCLUSION OF THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BY EXCELAN, INC. 

EXCELAN, INC. ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY EXCELAN, INC. 

.ENABLE QUIET 

.ENABLE LOWERCASE 

.ENABLE GLOBAL 

.ENABLE SUBSTITUTION 
.IFT <PRIVIL> .GOTO 5 
.DISABLE QUIET 

; Error: You must be privileged in order to install EXOS 8030 software. 
.EXIT 
.5: 

.IF <UIC> = "[1,100]" .GOTO 7 
.DISABLE QUIET 

; Error: EXOS 8030 must be installed from UIC [ 1,100] 
.EXIT 
.7: 

.DISABLE DISPLAY 

.ASK $VRBS Verbose? [Y/N] 

•IFT $VRBS .DISABLE QUIET 

.ASK $NOPRE Delete previous version of EXOS software? [Y/N] 

.ASK $DEL Delete source file from current UFD in target disk? [Y/N] 

•ASK $DRV Build driver and ACP only? [Y/N] 

.SETS $VEC "400" 

.ASKS [::$VEC] $VEC Interrupt vector location ? [ D : 400 ] 

.SETS $PORT "4000" 

.ASKS [::$PORT] $PORT OFFSET ADDRESS OF PORTA ? [ D : 4000 ] 

.SETN $SESS 1 

.ASKN [::$SESS] $SESS Maximum number of concurrent FTP server sessions? [D : l] 

build the driver 

@BLDDRV 

.IFT $DEL PIP BLDDRV.CMD; /DE 

» 

• 9 

.; build the pseudo-terminal driver 

@BLDZT 

.IFT $DEL PIP BLDZT.CMD; /DE 

• * 

. ; build the ACP 
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• > 

@BLDACP 

.IFT $DEL .AND .IFT $DRV PIP PROLOGUE. OLB;/DE 

.IFT $DEL PIP RTH.OLB;/DE 

.IFT $DEL PIP BLDACP.CMD; /DE 



• » 



Now copy utilities to various destination location 



.IFT $DRV .EXIT 

.20: 

.ASKS DESTUI Please enter the UFD for the EXOS utilities 

.IF DESTUI = "" .GOTO 20 



• » 



Copy task image 



.IFF $NOPRE .GOTO 25 



' DESTUI' ARP.TSK;*/DE 
' DESTUI' BSTAT.TSK;*/DE 
' DESTUI ' NETLOAD . TSK ; */DE 
'DESTUI 'NETSTAT.TSK;*/DE 
' DESTUI ' TTCP . TSK ; */DE 
' DESTUI ' XROUTE . TSK ; */DE 
' DESTUI * FTPC . TSK ; */DE 
'DESTUI 'FTPDEMON. TSK ;*/DE 
'DESTUI 'TELNET. TSK ;*/DE 
'DESTUI 'LOGIN. TSK ;*/DE 
' DESTUI ' FTPD . TSK ; */DE 



PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

PIP 

.25: 

@BLDLGN 

.IFT $DEL PIP LOGIN. OLB;*/DE 

.IFT $DEL PIP BLDLGN.CMD ;*/DE 

PIP ' DESTUI »/RE/FO/CO/NV/CD=SY:'<UIC>' LOGIN. TSK/NM 

@BLDDEM 

.IFT $DEL PIP DEMON. OLB;*/DE 

.;.IFT $DEL PIP RECVAST.MAC;*/DE 

.IFT $DEL PIP BLDDEM.CMD ;*/DE 

•IFT $DEL PIP PROLOGUE. OLB;*/DE 

PIP 



' DESTUI ' /RE/FO/CO/NV/CD=SY 
PIP 'DESTUI '/RE/FO/CO/NV/CD=SY 
PIP ' DESTUI 7RE/FO/CO/NV/CD=SY 
PIP ' DESTUI */RE/FO/CO/NV/CD=SY 
PIP 'DESTUI '/RE/FO/CO/NV/CD=SY 
PIP 'DESTUI' /RE/FO/CO/NV/CD=SY 
PIP ' DESTUI 7RE/FO/CO/NV/CD=SY 
PIP 'DESTUI' /RE/FO/CO/NV/CD=SY 
PIP 'DESTUI '/RE/FO/CO/NV/CD=SY 
PIP 'DESTUI 7RE/FO/CO/NV/CD=SY 



! <UIC>' FTPDEMON. TSK/NM 
'<UIC>'ARP. TSK/NM 
'<UIC>'BSTAT. TSK/NM 
' <UIC> ' NETLOAD . TSK/NM 
' <UI C> ' NETSTAT . TSK/NM 
•<UIC>' TTCP. TSK/NM 
'<UIC>' XROUTE. TSK/NM 
'<UIC>' FTPC. TSK/NM 
' <UIC> ' TELNET . TSK/NM 
'<UIC>'FTPD. TSK/NM 



copy specific programs 



' DESTUI 'RHOST.C;*/DE 
' DESTUI ' RADDR.C ;*/DE 



.IFT $NOPRE PIP 

.IFT $NOPRE PIP 

.IFT $NOPRE PIP 'DESTUI' SOCKET. C;*/DE 

.IFT $NOPRE PIP 'DESTUI' TTCP. C;*/DE 

.IFT $NOPRE PIP 'DESTUI' TTCP. H;*/DE 

.IFT $NOPRE PIP LB:[1,2]NET.;*/DE 
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.IFT $NOPRE PIP 'DESTUI '8030. HLP;*/DE 

PIP 'DESTUI 7RE/FO/NV/CD=SY: '<UIC>'RHOST.C/NM 

PIP 'DESTUI '/RE/FO/NV/CD=SY: '<UIC>'RADDR.C/NM 

PIP 'DESTUI ' /RE/FO/NV/CD=SY: '<UIC>' SOCKET. C/NM 

PIP 'DESTUI' /RE/FO/NV/CD=SY: »<UIC>'TTCP.C/NM 

PIP 'DESTUI 7RE/F0/NV/CD=SY: '<UIC>'TTCP.H/NM 

PIP LB:[1,2]/RE/F0/NV/CD=SY:'<UIC>'NET./NM 

PIP 'DESTUI ' /RE/FO/NV/CD=SY: ' <UIC> ' 8030 .HLP/NM 

.ASK INITHO Do you want to initialize the network addresses file (HOSTS.NET) 

.IFF INITHO .GOTO SETLD 

.IFT $NOPRE PIP LB:[l,l]HOSTS.NET;*/DE 

PIP LB:[1,1]/RE/FO/NV/CD=SY:'<UIO'HOSTS.NET/NM 

.OPENA LB: [1,1 lHOSTS.NET 

.ASKS HNAME Name of host 

.ASKS HADDR Host internet address 

.DATA 'HADDR' 'HNAME' localhost 

.CLOSE 

.IFT $N0PRE PIP LB:[l,l]HOSTLOCAL.NET;*/DE 

PIP LB : [ 1 , 1 ] /RE/FO/NV/CD=SY: ' <UIC> ' HOSTLOCAL.NET/NM 

Write out the EXOSLOAD command file 

.SETLD: 

.IFT $N0PRE PIP LB :[ 1,1] EXOSLOAD. CMD;*/DE 

.OPEN LB: [1,1] EX0SL0AD.CMD 

.DATA .ENABLE SUBSTITUTION 

.DATA . I FACT DEMTO ABO DEMTO 

.DATA . I FACT LGNTO ABO LGNTO 

.DATA .IFACT ...DEM ABO ...DEM 

.DATA .IFACT ...LGN ABO ...LGN 

•SETN LCOUNT 
.80$: 

.IF LCOUNT >= '$SESS' .GOTO 89$ 

.DATA .IFACT FTDOO' LCOUNT' ABO FTDOO' LCOUNT' 

.DATA .IFINS FTDOO 'LCOUNT' REM FTDOO 'LCOUNT' 

.DATA .IFINS XDROO' LCOUNT' REM XDROO* LCOUNT' 

.INC LCOUNT 



.GOTO 80$ 



.89$: 



.DATA .IFINS ...DEM REM ...DEM 
.DATA .IFINS ...ARP REM . . .ARP 
...BST REM ...BST 
...FTP REM ...FTP 
...NET REM ...NET 
...TEL REM ...TEL 
...TTC REM ...TTC 
...ROU REM ...ROU 
...NST REM ...NST 
...LGN REM ...LGN 
.DATA .IFACT ...RTH ABO . . .RTH 
.DATA .IFACT RTHTO ABO RTHTO 
•DATA .IFINS ...RTH REM ...RTH 

.IF <SYSTEM> <> 6 .GOTO 10$ 
.IFLOA ZE: CON OFFLINE ZEA 
.IFLOA ZE: CON OFFLINE ZEO: 
.IFNLOA ZT: .GOTO 10$ 



.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 

.DATA .IFINS 



.DATA 
• DATA 
.DATA 
.DATA 
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.DATA CON OFFLINE ZTA 
.DATA CON OFFLINE ZTB 
.DATA CON OFFLINE ZTC 
.DATA CON OFFLINE ZTD 
.DATA CON OFFLINE ZTE 
.DATA CON OFFLINE ZTF 
.DATA CON OFFLINE ZTH 
.DATA CON OFFLINE ZTJ 
.DATA CON OFFLINE ZTO: 
.DATA CON OFFLINE ZT1: 
.DATA CON OFFLINE ZT2: 
.DATA CON OFFLINE ZT3: 
.DATA CON OFFLINE ZT4: 
.DATA CON OFFLINE ZT5: 
.DATA CON OFFLINE ZT6: 
.DATA CON OFFLINE ZT7: 
.DATA .10$: 

.DATA .IFLOA ZE: UNL ZE: 
.DATA .IFLOA ZT: UNL ZT: 
.DATA LOA ZE:/PAR=GEN/HIGH/SIZE=20000 
.DATA .IF <SYSTEM> <> 6 LOA ZT: 
.DATA .IF <SYSTEM> <> 6 UNL ZT: 

.DATA ; You can ignore the error message: "Loadable driver larger than 4KW" 
.DATA LOA ZT:/HIGH/SIZE=20000 
.DATA .IF <SYSTEM> <> 6 .GOTO 20$ 
.DATA ; configure the devices online 
.DATA CON ONLINE ZEA 
.DATA CON ONLINE ZEO: 
.DATA CON SET ZTA VEC=0 
.DATA CON SET ZTB VEC=0 
.DATA CON SET ZTC VEC=0 
.DATA CON SET ZTD VEC=0 
.DATA CON SET ZTE VEC=0 
.DATA CON SET ZTF VEC=0 
.DATA CON SET ZTH VEC=0 
.DATA CON SET ZTJ VEC=0 
.DATA CON ONLINE ALL 
.DATA .20$: 

.DATA INS $RTHACP/PRI=150. 
.DATA .XQT RTH 
.DATA INS ' DESTUI' ARP. TSK 
.DATA INS ' DESTUI' BSTAT. TSK 
•DATA INS 'DESTUI'FTPC.TSK 
.DATA INS ' DESTUI* FTPDEMON. TSK 
.DATA INS 'DESTUI 'NETLOAD. TSK 
.DATA INS 'DESTUI 'TELNET. TSK 
.DATA INS ' DESTUI' TTCP. TSK 
.DATA INS 'DESTUI 'XROUTE. TSK 
.DATA INS ' DESTUI* NETSTAT. TSK 
.DATA INS 'DESTUI' LOGIN. TSK 
.SETN LCOUNT 
.DATA .SETS FTDOPT "" 

.DATA .IF <SYSTEM> = 6 .SETS FTDOPT "/XHR=NO" 
.90$: 

.IF LCOUNT >= '$SESS' .GOTO 99$ 

. DATA INS ' DESTUI * FTPD . TSK/TASK=FTD00 ' LCOUNT ' ' ' FTDOPT 



1 1 t 
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.DATA INS $PIP/TASK=XDR00 f LCOUNT , 
■'■• .INC LCOUNT 
.GOTO 90$ 
99$: 

.DATA .ASK DWN Do you want to initialize the EXOS front end processor 

.DATA .IFT DWN net 

.DATA .ASK DM Do you want to start the FTP server 

.DATA .IFT DMN .XQT dem 

.DATA .IFT DMN .XQT lgn 

.CLOSE 

PIP LB:[l,l]EXOSLOAD.CMD/PR/FO 

Please add the following line to LB :[ 1 , 2 ] STARTUP . CMD so that the 
network is reloaded everytime the system is rebooted. 

@LB:[ 1,1] EXOSLOAD 

You may need to edit the file LB : [ 1 , 1 ] EXOSLOAD . CMD to set up the 
options in loading the network module. 



Installation completed. Now you can execute 

@LB:[ 1,1] EXOSLOAD 

to start up the network connection. 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 
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17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



/* 



filename: 



FTPDEMON.H 



*/ 



<rsxos.h> 

010001 



/" max. no of connections */ 
/" common event flag no. 50 */ 
/" common event flag no. 51 */ 
/•" length of task name */ 



#include 
#define EXEFN 
#define MAXCONN 4 
#define ACC_EFN 50 
#define SLEEP_EFN 51 
#define TASKNAMLEN 6 
#define FOREVER for(; ;) 
#define SDRA 01153 

struct task_block { 

struct task_block "link; 
char t a sk_name[ TASKNAMLEN]; 
int esb[8]; 
} tskblkt MAXCONN] = {0}; 

/* GLOBAL variables */ 

struct task_block *rdy2run = tskblk; /* ptr to rdy 2 run task */ 
struct task block -accept on = 0; /* pointer to task in accept */ 



/* link to next task block 

/* task name */ 

/* exit status block */ 



*/ 






char cmdlin[] = "INS LB: [ 1,2]FTPD/TASK=FTD00 

char line[] = "REM FTD00 "; 

long cli = 0; /* CLI name in RAD50 */ 

int cmdlen = 0; 

int len = 0; 

int flgbuf[4] = {0}; /* event flag buffer */ 

/* int connect = 1; total no of connections -/ 

char "ftpcmd = (char *) 0; 

int ftplen =0; 

int tcblist [MAXCONN] = {0}; /* pointer to task control block */ 
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1 /* 

2 * filename: FTPDEMON.C 

3 */ 
4 

5 /* 

6 " This file contains the code for the master ftp task which monitors the 

7 " generation of different ftp daemons for different connections. 

8 */ 
9 

10 #include "f tpdemon.h" 

11 extern int ast(); 

12 extern long radixO; 

13 int connect = 1; 

14 extern int ast_recv(); 

15 main() 

16 { 
17 

18 priv_user(); /* check user is priv & 

19 task is not active */ 

20 gmcrO; 

21 emt(SDRA,ast_recv); /* specify receive data ast */ 
22 

23 initialize( ) ; 
24 

25 FOREVER { 

26 if(!read_efn(flgbuf)) { /* is efn 50 clear? */ 

27 if(rdy2run) { /* any rdy2run task present */ 

28 emt(SETF,ACC_EFN);/* set common efn 50 to 

29 indicate accept is on -/ 

30 ins_spawn(); /* install and spawn one * I 

31 updateO; /* update rdy2run pointer */ 

32 } 

33 } 
34 

35 emt(ENAR); /* enable ast recognition */ 

36 emt(STSE,SLEEP_EFN); /* sleep */ 

37 emt(CLEF,SLEEP_EFN); /* clear sleep efn */ 

38 emt(DSAR); /* disable ast recognition so that it does */ 

39 /* not interfere with main task's execution *7 

40 } /* end of FOREVER */ 

41 } 
42 

43 /* 

44 * INITIALIZE 

45 * 

46 * Initialize the world of MASTER 

47 */ 
48 

49 initializeO 

50 { 

51 register struct task_block *t = tskblk; /* start of task block */ 

52 int i,j; 
53 

54 cli = radixC'MCR..."); 

55 cmdlen = strlen(cmdlin) ; 

56 len = strlen(line) ; 
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57 f or(i=0;i<connect ;i++) { 

58 tcblist[i] = 0; 

59 for(j=0;j<5;j++) 

60 t->task_name[j] = cmdlin[cmdlen - TASKNAMLEN +jj; 

61 t->task_name[ j] = '0' + i; 

62 t->link = t + 1; 

63 t++; 

64 } 

65 (— t)->link = 0; 

66 emt(CLEF,ACC_EFN); 

67 emt(CLEF,SLEEP_EFN); 

68 emt(DSAR); /* disable ast recognition so that ast's do not */ 

69 /" bother the mas in task */ 

70 } 
71 

72 /* 

73 * UPDATE 

74 * 

75 * Update rdy2run pointer 

76 */ 
77 

78 updateO 

79 { 
80 

81 accept_on = rdy2run; 

82 rdy2run = rdy2run->link; 

83 accept_on->link = 0; 

84 } 
85 

86 /* 

87 * FROMAST 

88 * 

89 * This routine is called from the AST routine when a task 

90 - exits 

91 */ 
92 

93 £rom_ast(p) 

94 int "p; /" pointer to esb of exit task */ 

95 { 

96 register struct taskblock *exit_task; 

97 int index; 
98 

99 exit_task = (struct taskblock *)(p-4); /* point to start of str. */ 

100 exit_task->link = rdy2run; 

101 rdy2run = exittask; /* make the exit task the next available */ 

102 /" rdy2run task */ 

103 line[len - l] = exit _task->t a sk_name[ TASKNAMLEN -l];/* the task no. */ 

104 /*emt(SPWN,cli,0,0,0~,0,EXEFN,0,0,line,len,0,CO);*/ /* rem task */ 

105 /*emt(WTSE,l);*/ /* wait for task to get removed */ 

106 index = exit_task - tskblk; 

107 if (tcblist[index]) 

108 mkpriv(tcblist[ index]); /* make sure task becomes priv. */ 

109 if(accept_on == exit_task) 

110 emt(CLEF,ACC_EFN); /* then task has exit before accept */ 

111 emt(SETF,SLEEP_EFN); /* unstop the master task */ 

112 } 
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113 

114 /* 

115 * INS SPAWN 

116 * 

117 * Install and spawn the next rdy2run task 

118 */ 
119 

120 insspawnO 

121 { 

122 char msg[26]; 

123 long t_name = radix(rdy2run->task_name) ; 

124 int st; 
125 

126 cmdlintcmdlen - l] = rdy2run->task_name[TASKNAMLEN -l]; 

127 

128 /* now install the task */ 

129 

130 /-st = emt(SPWN,cli,0,0,0,0,EXEFN,0,0,cmdlin,cmdlen,0,CO);*/ 

131 /*emt(WTSE,l);*/ /* wait for task to get installed */ 

132 /* now spawn the task */ 

133 st = emt(SPWN,t_name, 0,0, 0,0, 010000, ast,rdy2run->esb,ftpcmd,ftplen, 0,0); 

134 if(st == IE_ACT) 

135 ; /* yet to decide what to do if task is active *7 

136 /* such a condition should never arise but if it does*/ 

137 /* then what? */ 
138 

139 } 
140 

141 /* return the size of string */ 

142 strlen( s ) 

143 char *s ; 

144 { 

145 char *p = s; 
146 

147 while( *p != '\0' ) p++; 

148 return(p - s); 

149 } 
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35 
36 
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39 
40 
41 
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43 
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46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



FILENAME: 



DEMON. MAC 



This file includes AST service routine for demon. It also has 
a routine to read EFN 50. 

.psect c$text,i,ro 



.MCALL RDAF$S 

READ. EFN:: 

jsr R5,c$sav 

MOV 4(R5),R0 

RDAF$S R0 

BIT #2,6(R0) 

BNE 10$ 

CLR R0 

10$: 

jmp c$ret 



GMCR 



GMCRD: 



GMCR:: 



NMCR: 



tsk: 



pointer to a 4 word buffer 

read all event flags 

check if event no. 50 is set or clear 

if NE then it is set 

clear return value also 

if efn is set then return value is > 



save registers 
get MCR command line 
check return status 
if EQ No MCR Command 
get mcr buffer address 
buffer size 



; unsave register's and return 



rtncode: 

ER1: 

ER2: 



.psect c$data,d,rw 

.mcall DIR$,GMCR$ 

GMCR$ 

.psect c$text,i,ro 

JSR R5,C$SAV 

DIR$ #GMCRD 

CMP #IE.AST,$DSW 

BEQ NMCR 

MOV #GMCRD+G . MCRB , FTPCMD 

MOV $DSW,FTPLEN 



JMP C$RET 

.psect c$data,d,rw 

.IF DF R$$MPL 

.rad50 /DEMT0/ 

.IFF ;R$$MPL 

.rad50 /...DEM/ 

.ENDC ;R$$MPL 



,word 

,ASCIZ /**FATAL** USER MUST BE PRIVILEGED/ 

.EVEN 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



.ASCIZ /**FATAL** TASK ALREADY ACTIVE/ 

.EVEN 

.MCALL TCBDF$,UCBDF$,QIOW$S,EXIT$S,DCBDF$ 

DCBDF$ 

TCBDF$ 

UCBDF$ 



.psect c$text,i,ro 
.ENABL LSB 



priv.u 



10$: 



20$: 
ERR1: 

ERR2: 

RTN: 

RET: 



El: 
E2: 
SUCC: 
ERMSG: 



ser: : 
JSR 
CALL 
MOV 
MOV 
BIT 
BEQ 
CMP 
BNE 
CMP 
BNE 
MOV 

MOV 
BEQ 
CMP 
BNE 
MOV 

BR 

MOV 
BR 

MOV 

RETURN 

MOV 

BEQ 

CMP 

BEQ 

BR 

MOV 

BR 

MOV 

BR 

JMP 

QIOW$S 

EXIT$S 



R5,C$SAV 

$SWSTK,RET 

$TKTCB,R0 

T.UCB(R0),R1 

#U2.PRV,U.CW2(R1) 

ERR1 

tsk,T.NAM(RO) 

ERR2 ; 

tsk+2,T.NAM+2(R0) 

ERR2 ; 

#$DEVHD,R1 ; 

(R1),R1 ; 
20$ ; 

# M C0,D.NAM(R1) ; 

10$ ; 



; switch to system state 



D.UCB(R1),T.UCB(R0) 
RTN ;; 



get current TCB address 

get Tl: UCB address 
; check, user is priv. 

If EQ user is not priv. 

compare first word of task name 

If NE task already active. 
; compare second word of task name 

if NE task already active 

get gevice header 

get next DCB address 
if EQ none 
is it console 
if NE no 

;; get CO UCB address 



#-l,RTNCODE 
RTN 

#-2,RTNCODE 



RTNCODE,R0 

SUCC 

#-l,R0 

El 

E2 

#ER1,R1 

ERMSG 

#ER2,R1 

ERMSG 



;; user must be priv. 

; task already active 
; return to task state 
; return value 
check error code 

address of error message 
address of error message 



C$RET 
#IO.WVB,#5,#1,,,,<R1,#38.,#40> 



psect c$text,i,ro 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 



mkpriv: 



JSR 

MOV 

CALL 

BIS 

RETURN 



R5,C$SAV 

4(R5),R0 ; get tcb address 

$SWSTK,RET1 ; switch to system state 

#T3.PRV,T.ST3(R0) ;; make server as priv. 



RET1: 



JMP C$RET 
.DSABL LSB 

•psect c$data,d,rw 

.even 

.psect c$text,i,ro 

.MCALL ASTX$S 



AST: 



MOV 


R0,-(SP) 


MOV 


R1,-(SP) 


MOV 


R2,-(SP) 


MOV 


R3,-(SP) 


MOV 


R4,-(SP) 


MOV 


R5,-(SP) 


MOV 


14(SP),-(SP) 


JSR 


PC, FROM. AST 


TST 


(SP) + 


MOV 


(SP)+,R5 


MOV 


(SP)+,R4 


MOV 


(SP)+,R3 


MOV 


(SP)+,R2 


MOV 


(SP)+,R1 


MOV 


(SP)+,R0 


TST 


(SP) + 


ASTX$S 





save R0 

save Rl 

save R2 

save R3 

save R4 

save R5 

1st param is the esb address on the stack 

call C - routine to do the job 

pop off param passed 

pop off R5 

pop off R4 

pop off R3 

pop off R2 

pop off Rl 

pop off R0 

pop off stack for ast 

exit from AST routine 



.END 
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1 

2 
3 

4 


; filename: 


RECVAST.MAC 






.title 


RECVAST 


5 
6 
7 




.MACRO 


SAVE 




MOV 


R0,-(SP) 


8 




MOV 


R1,-(SP) 


9 




MOV 


R2,-(SP) 


10 




MOV 


R3,-(SP) 


11 




MOV 


R4,-(SP) 


12 




MOV 


R5,-(SP) 


13 








14 




.ENDM 




15 








16 




.MACRO 


UNSAVE 


17 








18 




MOV 


(SP)+,R5 


19 




MOV 


(SP)+,R4 


20 




MOV 


(SP)+,R3 


21 




MOV 


(SP)+,R2 


22 




MOV 


(SP)+,R1 


23 




MOV 


(SP)+,R0 


24 








25 




.ENDM 




26 








27 




.MCALL 


TCBDF$,PCBDF$,HDRDF$,RCVD$S,SDAT$S,ASTX$S 


28 




TCBDF$ 




29 




PCBDF$ 




30 




HDRDF$ 




31 


PKT: 






32 




.BLKW 


15. 


33 


GRP: 






34 




.WORD 





35 


BASE: 






36 




.RAD50 


/OOO/ 


37 








38 




.enabl 


lsb 


39 








40 


AST. RE: 


• 




41 




SAVE 


; save all registers 


42 


AGAIN: 






43 




RCVD$S 


,#PKT 


recieve pkt from ftdOOO task 


44 




CMP 


#IS.SUC,$DSW 


,check for success 


45 




BEQ 


10$ 


, If EQ YES 


46 




CMP 


#IE.ITS,$DSW 


, check error code 


47 




BEQ 


EXT 


, no pkt. return 


48 




BR 


ERR 


; error 


49 


10$: 






50 




CALL 


$SWSTK,RET ; switch to system state 


51 




MOV 


$ACTHD,R0 ; get active task header point 


52 


20$: 






53 




CMP 


T.NAM(R0),PKT ;; compare first word of task 


54 




BNE 


NXT ;; If NE not match , next tcb 


55 




CMP 


T.NAM+2(R0),PKT+2 ;; compare second word of ta 


56 




BEQ 


SUCC 


;; If EQ found tcb 
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57 NXT: 

58 

59 

60 

61 

62 SUCC: 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 25$: 

73 

74 

75 

76 

77 

78 

79 30$: 

80 

81 RET: 

82 

83 

84 ERR: 

85 EXT: 
86 

87 
88 
89 
90 



MOV 
CMP 
BEQ 
BR 

MOVB 

CMP 

BLOS 

BIC 

MOV 

SUB 

ASL 

ADD 

MOV 

MOV 
MOV 
MOV 

MOV 



T.ACTL(R0),R0 

R0,#$HEADR 

30$ 

20$ 



;; get next tcb address 

;; Check if it is last tcb 

;; If EQ yes 

* * 



Loop 



PKT+5,GRP 

GRP,#10 

25$ 

#T3.PRV,T.ST3(R0) 

PKT+2,R2 ; 

BASE,R2 

R2 

#TCBLIST,R2 

R0,(R2) 



;; get group 



; ; priv uic ; 

; ; br if yes 

;; make child as non-priv. 
get second word of task name 
calculate index(word) 
index(byte) 



save tcb address 



T.PCB(R0),R0 ;; get PCB address of task 
P.HDR(R0),R0 ;; Get header control block 
PKT+4,H.CUIC(R0) ;; set current task uic as remote user's 

; ; login uic 
PKT+4,H.DUIC(R0) ;; set default task uic 



RETURN 

SDAT$S #PKT,#PKT+4 
BR AGAIN 



;; switch to task state 

; send dummy pkt to child task 
; go for next pkt. 



UNSAVE 
ASTX$S 
.END 



; unsave all registered 

; exit from AST routine 
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1 #include <rsxos.h> 

2 #define EFN 1 

3 extern valacntO; 

4 extern char "entry; 

char "msg = > 

6 main() 

7 I 

8 register int i,r; 

9 char * p ; 

10 for(;;) { 

11 /* 

12 if(emt(RCVX,(long) 0,msg) < 0) 

13 emt(EXST,-2); 

14 */ 

15 if(emt(RCST,(long) 0,msg) == IS_SET) 

16 continue; 

17 for(i=4;msg[i] != '*';i++); 

18 i++; 

19 r = valacnt(msg+4,msg+i); 

20 *((int *)(msg + 4)) = r; 

21 if( r == 0){ 

22 p = msg+6; 

23 *p++ = '['; 

24 for(i=0;i<3;i++) 

25 *p++ = *(entry + A_GRP + i ); 

26 *p++ = ' , ' ; 

27 for(i=0;i<3;i++) 

28 *p++ = "(entry + A_MBR + i ); 

29 *p++ = f 3 ! ; 

30 -P++ = 'No'; 

31 /* now fill in the login default device name starting at 16th */ 

32 for(i=0;i<4;i++) 

33 *p++ = -'(entry + ASYDV + i); 

34 -P++ = f \0'; 

35 } 

36 emt(SDAT,"(long")msg,msg+4,0); 

37 } 

38 } 
39 

40 extern int namflg; 

41 extern char ,v puic; 
42 

43 accnt(ac) 

44 char "ac ; 

45 { 

46 int hasbracket = 0; 

47 int charcount; 

48 int leadzero; /* count of leading zeroes needed */ 

49 char "'chptr; 

50 char -delimiter; /* delimiter -/ 
51 

52 while (-ac == ' ' ) 

53 ac++; /"" skip blank */ 

54 if ((-ac >= 'A') && (*ac <= 'Z')) { 

55 namflg = 1; 

56 return(l); 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



} else if (*ac == '[') { 

hasbracket = 1; 

ac++; 
} else if ((*ac < '0') && (*ac > '7')) { 

return(2) ; 

}; 

/* now must start with a numeric number */ 

chptr = ac; 

charcount = 0; 

while ((*chptr != ' ' ) && (*chptr != ',')) { 

if (++charcount > 3) 

return(2); /* group number too long */ 

chptr++; 

}; 

delimiter = chptr; 

for (leadzero = 3 - charcount; leadzero > 0; leadzero — ) 

*puic++ = ' 0' ; 
for (chptr = ac; charcount > 0; charcount — ) { 

if ((*chptr < '0') || (*chptr > '7')) 

return(2); /* syntax error */ 

*puic++ = *chptr++; 

}; 



while (-chptr == ! f ) 

chptr++; 
if (*chptr == ' ,') { 

chptr++; 
} else 

return(2) ; 
while (»chptr == * f ) 

chptr++; 



/" skip blank */ 



/" skip blank 
*/ 



*/ 



/" now handle the member part 

delimiter = chptr; 

charcount = 0; 

while ((*chptr !=»')&& (*chptr != ']') && (*chptr != '*•)) { 

if (++charcount > 3) 

return(2); /* member number too long */ 

chptr++; 

}; 

if (("''chptr == ']') && (Ihasbracket)) 
return(2) ; 

for (leadzero = 3 - charcount; leadzero > 0; leadzero — ) 

-puic++ = '0' ; 
for (chptr = delimiter; charcount > 0; charcount — ) { 

if ((*chptr < '0') || (*chptr > '7')) 

return(2); /* syntax error */ 

*puic++ = "chptr++; 

}; 

if (hasbracket) { 
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113 


while (*chptr != ']') { 


114 


if (*chptr == '*') 


115 


return(2) ; 


116 


chptr++; 


117 


1; 


118 


1; 


119 


return(O) ; 


120 } 
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11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
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26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
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45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



; .TITLE ACTFIL - ACCOUNT FILE CONTROL BLOCKS 
.NLIST 

.IDENT M.O/ 

COPYRIGHT (C) 1981 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD 
MASSACHUSETTS. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE 
AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS 
SOFTWARE OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR 
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO TITLE TO AND 
OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERED. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 



COPYRIGHT (C) 1981 BY DIGITAL EQUIPMENT CORPORATION. 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED 
OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 



VERSION 

BY: 

DATE: 



04 

H. LEV 

7/15/75 



MODIFIED: 

EB051 21 -MAY- 7 7 LOOK FOR ACNT FILE ON LB: RATHER THAN SY: 

DG002 LOOK FOR LATEST VERSION OF RSX11.SYS 

MLG007 03-NOV-78 FIND PHYSICAL LB: 

MLG044 30-JAN-79 SPOOL LISTING FILE (ACNT) 

MLG081 10-APR-79 DO NOT LEAVE ACCOUNT FILE LOCKED 



SA213 ADD FIELDS FOR SLAVE BIT, DEFAULT CLI NAME 
AND CHANGE OPENING OF ACNT FILE 



.LIST 



.MCALL FDBDF$,FDOP$A,FSRSZ$ 
.IF DF R$$MPL 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



.MCALL ACTDF$ 



.IFF 

.MACRO 
.ASECT 

.=0 

A.GRP: 'L' 

A.MBR:'L' 

A.PSWDl'L' 

A.LNM:'L' 

A.FNM: 'L f 

A.LDAT: 'L' 

A.NLOG: 'L* 

A.SYDVr'L' 

A.CLI: 'L 1 
A.LPRV: 'L' 
A.LEN ='B f 



;R$$MPL 
ACTDF$,L,B 



• BLKB 
.BLKB 

• BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKB 
.BLKW 
.BLKW 
. BLKW 
.BLKW 
.BLKW 
128. 



3 

3 

6 

14 

12 

6 

2 

4 

1 

2 

2 

1 

1 



GROUP CODE (ASCII) 

MEMBER CODE 

PASSWORD 

LAST NAME 

FIRST NAME 

DATE OF LAST LOG ON (DD/MM/YY HH:MM:SS 

TOTAL NUMBER OF LOGONS 

DEFAULT SYSTEM DEVICE 

UNUSED 

RAD50 DEFAULT CLI NAME 

UNUSED (FOR COMPATIBILITY W/ MPLUS) 

LOGIN PRIVILEGE WORD 

UNUSED 

LENGTH OF CONTROL BLOCK 



BIT DEFINITION ON A.LPRV 
1 



AL.SLV = 'B' 

.PSECT 
.ENDM 



LOGIN PRIVILEGES 

; SLAVE TERMINAL ON LOGIN 



.ENDC ;R$$MPL 



CONSTANTS 

LUN2 
$BFLEN == 



2 
2048. 



; ACCOUNT FILE LUN 

; LENGTH OF ACCOUNT FILE BUFFER 



ACTDF$ <:>,<=> ; DEFINE OFFSETS INTO ACCOUNT FILE 
$ACTFL:: FDBDF$ ; DEFINE ACCOUNT FILE FDB 

.IF DF R$$MPL 

FDOP$A LUN2 , DSPT , , , FA . ENB ! FA . DLK ! FA . EXC 

.IFF ;R$$MPL 

FDOP$A LUN2, DSPT,,, FA. ENB! FA. DLK ; SETUP LUN, DSD, AND F.ACTL 

.ENDC ;R$$MPL 



DSPT: .WORD 

.WORD 

.WORD 5 

.WORD DIRNAM 

.WORD 9. 



; DATA SET DESCRIPTOR 

; DEVICE NAME (ALUN USED) 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 



.WORD FILNAM 

DIRNAM: .ASCII /[0,0]/ 
FILNAM: .ASCII /RSXll.SYS/ 
.EVEN 

FSRSZ$ 1 

$actbf:: .blkb $bflen 

.EVEN 
.END 



; SET UP FOR A FILE IN GET PUT MODE 
; CREATE ACCOUNT FILE BUFFER 
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2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



f i 1 ename : 



PASWORD.MAC 



This routine is callable from ' C' as well as from a Macro program, 
If C$$SPRT is defined then it becomes callable from 'C'. 



.MCALL DCBDF$ 
DCBDF$ 
C$$SPRT = 1 



DATABASE 



•enabl 



.MCALL QIQ$,MRKT$,WTSE$S,QIOW$S,ALUN$S,CLOSE$ 

.MCALL OPEN$R,FINIT$,GET$ 

•.MCALL NB0F$L 

.IF DF R$$MPL 

.MCALL OPNS$U 

.IFF ;R$$MPL 

.MCALL OPEN$U 

.ENDC ;R$$MPL 



.psect 
gbl 



c$data,d,rw 



ENCRPT = 
LUN4 = 4 
EFN1 = 1 
PSWDBF: .WORD 
UIC: 



PUIC:: 
NAME: 
.EVEN 
NBOF$L 

FDPB: 

IOSB: 

OPNERR: 

FILOPN: 

NAMFLG : 

ENTRY:: 

MKT: 

FRMPTR: 

ER1: 

ER2: 

ER3: 

.EVEN 



.ASCII 

.WORD 

.ASCII 



QIO$ 
.BLKW 
.WORD 
.WORD 

.WORD 

MRKT$ 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 




/000000/ 

UIC 

/ 



ENCRYPTION SUBROUTINE NOT PRESENT 

LUN FOR SYSTEM DEVICE 

EVENT FLAG FOR ALL I/O 

ADDRESS OF PASSWORD BUFFER 

UIC 

POINTER TO UIC 

/ ; LAST NAME AREA IF NAME USED 



DEFINE BLOCK OFFSETS 



IO.RVB,LUN2,EFNl, ,IOSB, ,<$ACTBF,$BFLEN, , ,1> 

2 





.WORD 



1,60,1 









I/O STATUS BLOCK 

A/C FILE OPEN ERROR FLAG 

FILE OPEN IF = 1. 

; NAME FLAG, = A/C, 
ADDRESS OF A/C ENTRY 
WAIT FOR 1 SEC 
C - FRAME POINTER STORAGE 

<15>/**FATAL** CANNOT FIND PHYSICAL LB:/ 

<15>/**FATAL** ACCOUNT FILE OPEN ERROR/ 

<15>/**FATAL** INVALID ACCOUNT/ 



NAME 



INPUTS TO MAC CALLABLE ROUTINE 
R3 — > POINTER TO ACCOUNT 
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57 


• 
> 


R4 — > 


POINTER TO PASSWC 


58 


5 






59 








60 




.psect 


c$text ,i ,ro 


61 








62 


VALACNT:: 




63 








64 




.IF 


DF C$$SPRT 


65 




jsr 


R5 ,c$sav 


66 




MOV 


R5,FRMPTR 


67 




MOV 


4(R5),R3 


68 




MOV 


6(R5),R4 


69 




.ENDC 




70 








71 








72 


; NOW 


FILL UP UIC AND PASWORD 11 


73 








74 




MOV 


#UIC,PUIC 


75 




MOV 


R3,(SP) 


76 




CALL 


ACCNT 


77 




TST 


RO 


78 




BEQ 


15$ 


79 








80 




CMP 


R0,#1 


81 




BEQ 


10$ 


82 




JMP 


ERR3 


83 


10$: 






84 




MOV 


#NAME,R2 


85 




MOV 


#14., Rl 


86 


12$: 






87 




MOVB 


(R3)+,(R2)+ 


88 




SOB 


Rl,12$ 


89 








90 


15$: 






91 




MOV 


R4,PSWDBF 


92 


20$: 






93 




SWSTK$ 


50$ 


94 




MOV 


$DEVHD,R2 


95 


30$: 






96 




CMP 


D.NAM(R2),# M LB 


97 




BEQ 


40$ 


98 




MOV 


D.LNK(R2),R2 


99 




BNE 


30$ 


100 




CLR 


4(SP) 


101 




RETURN 




102 


40$: 






103 




MOV 


D.UCB(R2),R0 


104 




MOV 


U.RED(R0),R0 


105 




MOV 


U.DCB(R0),R2 


106 




MOV 


D.NAM(R2),4(SP) 


107 




SUB 


D.UCB(R2),R0 


108 




MOV 


D.UCBL(R2),R1 


109 




CALL 


$DIV 


110 




ADD 


D.UNIT(R2),R0 


111 




BIC 


#177400, RO 


112 




MOV 


R0,6(SP) 



SAVE FRAME POINTER 

GET POINTER TO ACCOUNT OR NAME 

GET POINTER TO PASSWORD 



set up pointer to UIC 

PARAM -> POINTER TO ACCOUNT OR NAME 

CHECK FOR ACCOUNT OR USER NAME 

RETURN CODE 

IF EQ THEN ACCNT SPECIFIED CORRECTLY 

AND XFERED UIC TO CORRECT PLACE 

SEE IF NAME SPECIFIED OR NOT 

IF EQ THEN IT IS SPECIFIED 

SYNTAX ERROR 

ADDRESS OF NAME 
LENGTH OF NAME 

XFER NAME 
LOOP 



; ADDRESS OF PASSWORD 

;; SWITCH TO SYSTEM STATE 

;; START AT BEGINNING OF DEVICE TABLE 



AND LOOK FOR LB: 

IF EQ FOUND 

NEXT DEVICE 

TRY IT! 

INDICATE ERROR BY SETTING USER Rl = 

RETURN TO USER STATE 

GET UCB ADDRESS 

FIND PHYSICAL LB: (I.E. FIRST REDIRECT) 

FIND DCB OF PHYSICAL DEVICE 

PUT LB DEVICE INTO 1USER STATE Rl 

CALCULATE UNIT NO. 



CLEAR UNWANTED BITS 

PUT UNIT NO. INTO USER STATE R2 
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113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 



RETURN 



50$: 

60$: 
70$: 

80$: 
90$: 



CLR 


OPNERR 


TST 


Rl 


BNE 


60$ 


JMP 


ERR1 



• 
> 


; RETURN TO TASK STATE 


> 


REF LABEL 


• 
> 


SET TO OPEN ERROR 


* 


DID WE FIND PHYSICAL LB:? 


> 


IF NE YES 


> 


NO ERROR 



CLR N.FID+F.FNB+$ACTFL ; ASSUME NOT OPEN BY FILE ID 

ALUN$S #LUN2,R1,R2 ; ASSIGN LUN TO DEVICE. 

MOV $TKPS,MKT+M.KTMG ; USE TICKS /SEC TO MARK TIME FOR 1SEC, 



CALL 
BCC 
CMP 
BLT 

JMP 



OPEN 
100$ 

OPNERR, #5 
90$ 

ERR2 



DIR$ #MKT 

BCS 80$ 

WTSE$S #1 

INC OPNERR 

BR 70$ 

SEARCH FOR ACCOUNT IN FILE 



100$: 



110$: 



RET: 



ERR1: 



ERR2: 



ERR3: 
ermsg: 



CALL 
BCC 
CALL 
JMP 

CALL 
MOV 

.IF 
MOV 

jmp 
.IFF 
RETURN 
.ENDC 



MOV 
MOV 
BR 

MOV 
MOV 
BR 

MOV 
MOV 

QIOW$S 
CLR 



SEARCH 
110$ 
CLOSE 
ERR3 

CLOSE 
#0,R0 

DF 

FRMPTR,R5 

c$ret 



C$$SPRT 



#ER1,R1 

#-l,R0 

ERMSG 

#ER2,R1 

#-2,R0 

ERMSG 

#ER3 , Rl 
#-3,R0 



; OPEN ACCOUNT FILE 

; IF CC - OPEN SUCCESFUL. 

; FIVE FAILURES? 

; NO 



YES 



SEC 



NO, WAIT FOR 1 

ERROR 

WAIT FOR TIME 

INCREMENT TIME TRIED 

TRY AGAIN 



; SEARCH FOR ACCOUNT NUMBER 

; IF CC - OKAY 

; CLOSE THE ACNT FILE BEFORE GIVING ERROR 

; ACCOUNT OR PASSWORD NOT FOUND 

; CLOSE THE ACNT FILE 

; INDICATE SUCCESSS TO CALLER 



; RESTORE FRAME POINTER 
; RETURN TO 'C' CALLER 

; RETURN TO 'MAC* CALLER 



ADDRESS OF ERROR MESSAGE 
RETURN ERROR CODE 
DISPLAY IT 

ADDRESS OF ERROR MESSAGE 
RETURN ERROR CODE 



; THIRD ERROR 

; RETURN ERROR CODE 



#IO.WVB,#5 ,#1 , , , ,<R1 ,#80. ,#40> 

RO ; SET UNSUCCESSFUL 
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169 




JMP 


RET ; RETURN 


TO CALLER 


170 


;+ 








171 


> " " " ~ 


SEARCH - SEARCH FILE FOR ACCOUNT 


NUMBER 


172 


» 








173 


; OUTPUT: 






174 


* 
> 


RO - ADDRESS OF ACCOUNT ENTRY 




175 


» 


CARRY 


CLEAR - ACCOUNT FOUND 




176 


i 


CARRY 


SET - ACCOUNT NOT FOUND 




177 


>~ 








178 


SEARCH: 


MOV 


#FDPB,R4 


, GET FILE DPB ADDRESS 


179 




CLR 


OPNERR 


, ZERO ATTEMPT COUNT (FOR M+ 01 


180 




MOV 


#1,Q.IOPL+10(R4) 


, SET TO START AT VBN 1 


181 




CLR 


Q.IOPL+6(R4) 




182 


5$: 


CALL 


QIO 


, READ NEXT BLOCK 


183 




MOV 


IOSB+2,R2 


, GET COUNT OF WORDS READ 


184 




BEQ 


25$ 


, ZERO, NO WORDS READ 


185 




MOV 


#$ACTBF,R0 


, GET BUFFER ADDRESS 


186 


10$: 


TST 


NAMFLG 


, IS NAME SPECIFIED? 


187 




BEQ 


15$ 


, NO 


188 




MOV 


RO, ENTRY 


, YES, SAVE ENTRY ADDRESS 


189 




MOV 


Rl, -(SP) 


, SAVE BYTES LEFT 


190 




MOV 


R2, -(SP) 




191 




ADD 


#A.LNM,R0 


, GET ADDRESS OF LAST NAME 


192 




MOV 


#NAME,R1 


, GET ADDRESS OF NAME ENTERED 


193 




MOV 


#14., R2 


, SET LENGTH OF NAME 


194 


12$: 


CMPB 


(R0)+,(R1)+ 


, NAMES THE SAME? 


195 




BEQ 


14$ 


, YES 


196 




SEC 




, NO 


197 




BR 


18$ 




198 


14$: 


DEC 


R2 


, SO FAR 


199 




BGT 


12$ 


, CONTINUE TILL END 


200 




MOV 


ENTRY, RO 


RESTORE ENTRY ADDRESS 


201 




BR 


17$ 


, NAME IS THE SAME 


202 


15$: 


CMP 


UIC,A.GRP(RO) 


GROUP CODES MATCH 


203 




BNE 


20$ 


NO 


204 




CMP 


UIC+2,A.GRP+2(R0) 


MAYBE 


205 




BNE 


20$ 


NO 


206 




CMP 


UIC+4,A.MBR+1(R0) 


YES, MEMBER CODES MATCH? 


207 




BNE 


20$ j 


NO 


208 




MOV 


RO, ENTRY 


SAVE ENTRY POINTER 


209 




MOV 


R1,-(SP) 


SAVE Rl AND R2 


210 




MOV 


R2,-(SP) 




211 


17$: 


CALL 


TPSWD 


CHECK PASSWORD 


212 


18$: 


MOV 


(SP)+,R2 


RESTORE Rl AND R2 


213 




MOV 


(SP)+,R1 




214 




MOV 


ENTRY, RO 


RESTORE ENTRY POINTER 


215 




BCC 


40$ 


PASSWORD CHECKS OUT 


216 


20$: 


ADD 


#A.LEN,R0 


POINT TO NEXT ENTRY 


217 




SUB 


#A.LEN,R2 


COMPUTE WORDS LEFT IN BUFFER 


218 




BHI 


10$ 


LOOP, MORE LEFT 


219 


25$: 


CMPB 


#IE.EOF,IOSB 


END OF FILE? 


220 




BEQ 


30$ 


, YES 


221 




TSTB 


IOSB 


, ANY ERRORS? 


222 




BMI 


30$ 


YES 


223 




ADD 


#$BFLEN/512. ,Q. IOPL+10(R^ 


0; NO, POINT TO NEXT VBN 


224 




ADC 


Q.IOPL+6(R4) 
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225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 



BR 
30$: SEC 
40$: RETURN 



5$ 



READ IN NEXT BUFFER 
ERROR, ACCOUNT NOT FOUND 



*** - TPSWD - TEST PASSWORD 

CARRY SET - INVALID PASSWORD 
CARRY CLEAR - GOOD PASSWORD 

NOTE: THIS CODE ALLOWS PSW/TIME. IF THERE IS A/, IT DISREGARDS 
WHAT FOLLOWS BECAUSE, BATCH (ON M+ ONLY) SENDS TIME LIMIT TO BE 
DISREGARDED BY HELLO 



TPSWD: 



101$ 



102$ 



105$ 



108$ 



109$: 



2$: 



MOV 


PSWDBF,R1 


MOVB 


4(R1),-(SP) 


MOVB 


5(R1),1(SP) 


MOVB 


2(R1),-(SP) 


MOVB 


3(R1),1(SP) 


MOVB 


0(R1),-(SP) 


MOVB 


1(R1),1(SP) 


MOV 


SP,R1 


MOV 


R0,-(SP) 


MOV 


#6,R0 


CMPB 


(Rl),#40 


BLO 


105$ 


CMPB 


(R1),#V 


BEQ 


105$ 


CMPB 


(Rl),#140 


BLOS 


102$ 


CMPB 


(Rl),#172 


BHI 


102$ 


BICB 


#40, (Rl) 


INC 


Rl 


DEC 


RO 


BGT 


101$ 


BR 


108$ 


DEC 


RO 


BMI 


108$ 


MOVB 


#40,(R1)+ 


BR 


105$ 


TST 


#ENCRPT 


BEQ 


109$ 


MOV 


SP,R0 


ADD 


#2,R0 


CALL 


ENCRPT 


MOV 


(SP)+,R0 


ADD 


#A.PSWD,R0 


MOV 


SP,R1 


MOV 


#6.,R2 



LOCATION OF PASSWORD FIELD 
PUT PASSWORD ON STACK 



POINT TO PASSWORD 

SAVE RO 

LENGTH OF PASSWORD FIELD 

VALID CHAR? 

LO-NO. 

IS IT SLASH (TIME-LIMIT COMING)? 

EQ- YES,, TREAT AS END-OF-PASSWORD 

LOWER CASE? 

NO 

MAYBE 

NO 

CONVERT TO UPPER CASE 

LOOK AT NEXT BYTE 
DECRM CHAR COUNT 
GT- MORE TO DO. 
NO NEED TO SPACE FILL. 

ANY MORE TO FILL? 

MI- NO. 

SPACE-IT-OUT! 

TRY AGAIN. 

PASSWORD ENCRYPTION SUBR PRESENT? 

EQ- NO. 

SHOW WHERE PASSWORD IS 

ENCRYPT THE PASSWORD 

RESTORE RO 

POINT TO PASSWORD IN FILE 

POINT TO (FILLED) ENTERED PASSWORD 

SET SIZE OF PASSWORD 
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281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 



NO, MATCH? 

NO, ERROR 

ALL DONE? 

NO, LOOP 

YES 

BLANK FROM HERE ON? 

NO, ERROR 

DONE? 

NO, LOOP 

YES 

CLEAN STACK 

SET ERROR 

CLEAN STACK 

RETURN (NO ERROR- ADD CLEARS CARRY) 



OPEN: 

; NOTE - RECORD LOCKING IS OPTIONAL ON M. THIS IS WHY M IS NOT OPENED 

: FOR SHARED ACCESS. 





CMPB 


(R1)+,(R0)+ 




BNE 


10$ 




DEC 


R2 




BGT 


2$ 




BR 


20$ 


4$: 


CMPB 


<R0)+,#' 




BNE 


10$ 




DEC 


R2 




BGT 


4$ 




BR 


20$ 


10$: 


ADD 
SEC 
RETURN 


#6,SP 


20$: 


ADD 
RETURN 


#6,SP 


. *** 


- OPEN - 


OPEN A FILE 



.IF DF 


R$$MPL 


OPNS$U 


#$ACTFL,,,#FD.RWM 


.IFF 


;R$$MPL 


OPEN$U 


#$ACTFL,,,#FD.RWM 


.ENDC 


;R$$MPL 


BCS 


10$ 


INC 


FILOPN 


RETURN 





; OPEN FILE 



; OPEN FILE 



; IF CC ERROR 

; SET FILE IS OPEN 



10$: 



; *** - CLOSE - CLOSE FILE 



CLOSE: 



TST FILOPN 

BEQ 10$ 

CLR FILOPN 

CLOSE$ #$ACTFL 



IS FILE OPEN? 

NO 

FILE IS NOW CLOSING 

YES - CLOSE FILE 



10$: 



RETURN 
*** - qio - ISSUE QIO 

input: 



QIO: 



R4 - DPB ADDRES 



DIR$ R4 
BCS 10$ 



; ISSUE QIO 
; ERROR 



Apr 30 23:05 1986 pasword.mac Page 7 



337 




MOVE 


Q.IOEF(R4),R5 


338 




WTSE$S 


R5 


339 


10$: 






340 




RETURN 




341 








342 




.psect 


c$text ,i ,ro 


343 




.even 




344 




.psect 


c$data,d,rw 


345 




.even 




346 




.END 





; GET EVENT FLAG TO WAIT ON 
; AND WAIT 
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1 

2 /* "(§(#)compat.h 1.9 4/15/85" */ 

3 

4 /* added by billn */ 

5 /-" #include <exos/misc.h> */ 

6 #ifdef index /* system 3 or 5 */ 

7 #ioclude <fcntl.h> 

8 #define dup2(f,n) { close(n); fcntl(f, F_DUPFD, n);} 

9 #endif 

10 #ifnde£ void 

11 #define void int 

12 #endif 
13 

14 #define VOID (void) 
15 

16 #ifndef SIGCHLD 

17 #define SIGCHLD SIGCLD 

18 #endif 

19 /- end billn */ 
20 

21 #ifndef MAXPATHLEN 

22 #define MAXPATHLEN 33 

23 #endif 
24 

25 #define receive_data rec_data 

26 #define wait3 wait2 

27 #define initgroups(a,b) 

28 #define inappropriate_request inapreq 
29 

30 #ifdef BSD4dot2 

31 #else 

32 #ifdef V7 

33 #include <sys/timeb.h> 

34 struct timeval { long tv_sec; long tv_usec; }; 

35 struct timeb ftimeb; 

36 #define gettimeofday(a,b) ( ftime (&f timeb), \ 

37 (a)->tv_sec = ftimeb. time, (a)->tv_usec = f timeb. millitm) 

38 #else 

39 struct timeval { long tv_sec; long tv_usec; }; 

40 extern long xtimeO; 

41 #de£ine gettimeo£day(a,b) ((a)->tv_sec = time(0), (a)->tv_usec = 0) 

42 #endif V7 

43 #endi£ BSD4dot2 
44 

45 #ifndef CTRL 

46 #define CTRL(x) 037&'x' 

47 #endi£ 
48 

49 #define SOL_SOCKET 

50 #define SO REUSEADDR 
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1 

2 /* 

3 * filename: LIBSOCK.H 

4 * 

5 * this file contains all the system dependent definitions 

6 * used in the socket library . 

7 */ 
8 

9 
10 

11 extern char *xstrchr(), *xstrrchr(); 
12 

13 #define HOSTS "LB: [ 1 , l]HOSTS.NET" 

14 #define HOSTSLOCAL "LB: [ 1 , l] HOSTLOCAL.NET" 
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1 

2 /*(a(#)varpat.h 1.8 4/11/85*/ 

3 

4 #define connected conned 

5 

6 #define connecthelp connhelp 

7 #de£ine mdeletehelp mdelhelp 

8 #define receivehelp recehelp 

9 #define verbosehelp verbhelp 
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1 

2 /* 

3 * filename: ACCEPT. C 

4 */ 
5 

6 #include <xstdio.h> 

7 ^include <xerrno.h> 

8 #include "libhdr.c" 
9 

10 

11 xaccept(s, from) 

12 int s; 

13 struct sockaddr *from; 
U { 

15 register XFILE *£ile; 

16 struct SOictl SOictl; 

17 struct iosb iosb; 

18 int ret; 
19 

20 

21 if( s < | | s >= _XNFILE ) 

22 return( XEBADF ); 

23 file = &_xiob[s]; 

24 if( !(file->_flag & XUsed)) 

25 return( XEBADF ); 

26 SOictl. hassa = from ? 1 : 0; 

27 ret = libemt(IO_ACS | SAACC, &iosb,0, 0, &S0ictl, 0, 0, (int) f ile->_sys_id) ; 

28 

29 libcopy(&SOictl. sa, from, sizeof (struct sockaddr)); 

30 return(ret); 

31 } 
32 

33 /* 

34 * Objective of this function is to process different type of error resulting 

35 * from a call to the driver via QIO ( or emt call in 'C' ) call. A QIO 

36 - executive directive call reports error in two different ways through the 

37 * DSW ( directive status word ) and also in the 10 statusblock. Again in the 

38 - IOSB it is divided into two parts one device specific and the other generic. 

39 * The generic and the dsw are returned to the caller after shifting it by -512 

40 » and the device specific code is just sign changed. If all is fine then an 

41 " non zero value is returned. 

42 */ 
43 
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1 /* 

2 * FILENAME ALLOC. C 

3 * 

4 */ 
5 

6 #include <rsxos.h> 

7 #include <xstdio.h> 

8 typedef int ALIGN; /* forces alignment on PDP-11 */ 
9 

10 union header { /* free block header */ 

11 struct { 

12 union header *ptr; /* next free block */ 

13 unsigned size; /* size of this free block */ 

14 } s; 

15 ALIGN x; /" force allignment of blocks */ 

16 }; 
17 

18 typedef union header HEADER; 

19 

20 

21 static HEADER base = {0}; /* empty list to get started */ 

22 static HEADER *allocp = XNULL; /« last allocated block */ 
23 

24 char *xmalloc(nbytes) /* genral- purpose storage allocator */ 

25 unsigned nbytes; 

26 { 

27 static HEADER *morecore(); 

28 register HEADER *p, *q; 

29 register int nunits; 
30 

31 nunits = l+(nbytes+sizeof(HEADER)-l)/sizeof (HEADER) ; 

32 if( (q = allocp) == XNULL) { /* no free list yet */ 

33 base.s.ptr = allocp = q = & base; 

34 base. s. size = 0; 

35 } _ 

36 for( p=q->s.ptr; ; q=p, p=p->s.ptr ) { 

37 if( p->s.size >= nunits) { /* big enough */ 

38 if( p->s.size == nunits) /* exactly -/ 

39 q->s.ptr = p->s.ptr; 

40 else { /* allocate tail end */ 

41 p->s.size -= nunits; 

42 p += p->s.size; 

43 p->s.size = nunits; 

44 } 

45 allocp = q; 

46 return ((char -)(p + l)); 

47 } 

48 if( p == allocp ) /* wrapped around free list -/ 

49 if(( p = morecore(nunits) ) == XNULL) 

50 return(XNULL); /* none left */ 

51 } 

52 } 
53 

54 

55 #define NALLOC 16 /* #units to allocate for memory */ 

56 
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57 HEADER *morecore(nu) /* ask system for memory */ 

58 unsigned nu; 

59 { 

60 register char *cp; 

61 register HEADER *up; 

62 register int rnu; 
63 

6 A rnu = NALLOC * ( (nu+NALLOC-1 ) / NALLOC); 

65 cp = sbreak(rnu * sizeof (HEADER) ) ; 

66 if( (int)cp == -1) /* no space at all */ 

67 return ( XNULL ); 

68 up = (HEADER *)cp; 

69 up->s.size = rnu; 

70 xfree((char *)(up+l)); 

71 return(allocp) ; 

72 } 
73 

74 xfree(ap) /* put block ap in free list */ 

75 char *ap; 

76 { 

77 register HEADER *p, *q; 
78 

79 p = (HEADER *)ap -1; /* point to the header */ 

80 for( q=allocp; !(p > q && p < q->s.ptr); q=q->s.ptr ) 

81 if( q >= q->s.ptr && (p > q || p < q->s.ptr) ) 

82 break; /* at one end or other */ 
83 

84 if( p+p->s.size == q->s.ptr) { /* join to upper nbr -/ 

85 p->s.size += q->s .ptr->s.size; 

86 p->s.ptr = q->s.ptr->s .ptr ; 

87 } else 

88 p->s.ptr = q->s.ptr; 

89 if( q+q->s.size == p ) { /* join to lower nbr -/ 

90 q->s.size += p->s.size; 

91 q->s.ptr = p->s.ptr; 

92 } else 

93 q->s.ptr = p; 

94 allocp = q; 

95 } 
96 

97 #define EXTK 01531 

98 #define BLK 64 
99 

100 extern int _brk; 

101 sbreak(nbytes) 

102 register int nbytes; 

103 { 

104 register int ret = _brk; 
105 

106 if( emt(EXTK, l+(nbytes-l)/BLK, 0) >= ) { 

107 _brk += nbytes; 

108 return ret; 

109 } 

110 else { 

111 /* 

112 xprintf(" Task extention failed %o\n M , rval); 
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113 */ 

114 return -1; /* No memory */ 

115 } 

116 } 
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1 /* 

2 * filename: BOARD. C 

3 */ 
4 

5 

6 #define u_long long 

7 #include <xstdio.h> 

8 #include <xspecial.h> 

9 #include <xerrno.h> 

10 #include <libhdr.c> 

11 #include <brdioctl.h> 

12 #include <init.h> 

13 #include <route.h> 
14 

15 

16 int brdopen( brd no, mode) /* open an administrative channel -/ 

17 int brdno; 

18 int mode; 

19 { 

20 int ret; 

21 struct iosb iosb; 
22 

23 if ( mode == 1 ) /* mode is readonly */ 

24 mode =0; 

25 else /* else mode is read write */ 

26 mode = 1; 

27 ret = libemt(lO_EXC | EXJ3PN, &iosb, 0, 0, 0, mode, 0, 0); 

28 if ( ret == ) 

29 ret = iosb.nread; /* return channel # */ 

30 return ( ret ); 

31 } 
32 

33 int xbrdclose( fd ) /* close an administrative channel */ 

34 int fd; 

35 { 

36 int ret; 

37 struct iosb iosb; 
38 

39 ret = libemt(IO_EXC | EX_CLS,&iosb, 0,0, 0,0,0, fd) ; 

40 return ( ret ); 

41 } 
42 

43 

44 int xbrdwrite( sysid, buf , len) 

45 int sys id; /* must have been char -sysid -/ 

46 char *buf ; 

47 int len; 

48 { 

49 int fd, ret; 

50 struct iosb iosb; 

51 register XFILE *file; 
52 

53 ret = libemt(IO_WLB, &iosb, buf , len, 0,0,0, sys_id) ; 

54 if ( ret == ) 

55 ret = iosb.nread; 

56 return ( ret ); 
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57 } 
58 

59 int xbrdread( sysid, buf, len ) /* read boards memory */ 

60 int sys_id; 

61 char "buf; 

62 int len; 

63 { 

64 int fd, ret; 

65 struct iosb iosb; 

66 register XFILE *file; 
67 

68 ret = libemt(IO_RLB, &iosb, buf , len, 0,0,0, sys_id) ; 

69 if ( ret == ) 

70 ret = iosb.nread; 

71 return ( ret ); 

72 } 
73 

74 int xbrdioctK sysid, cmd, arg ) 

75 int sys_id, cmd; 

76 char *arg; 

77 { 

78 int i, fd, len = 0, ret; 

79 long along = 0; 

80 Ushort base = , off = 0; 

81 char *buf = 0; 

82 int qio_fn ; 

83 struct iosb iosb; 

84 register XFILE -file; 
85 

86 switch ( cmd ){ 

87 case BRDINIT: 

88 /* translate the mode */ 

89 base = *( int *) arg; /* mode of configuration */ 

90 switch ( base ){ 

91 case 0: base = 1; /* host down load *l 

92 break; 

93 case 1: base = 2; /* net down load -7 

94 break; 

95 case 2: base = 0; /* link level mode */ 

96 break; 

97 case 0x80: /* infinite timeout */ 

98 base |= 1; /-' include with download mode -7 

99 break; 

100 default: 

101 base = 1; /* forced to download mode */ 

102 } 

103 qio_fn = IO_EXC | EX_INI ; 

104 break; 
105 

106 case BRDADDR: 

107 case BRDSTART: 

108 along = *( long * ) arg; 

109 base = (Ushort )( ( along » 16 ) & OxOOOOffff ); 

110 off = (Ushort )( along & OxOOOOffff ) ; 

111 if ( cmd == BRDADDR ) 

112 qio fn = 10 EXC | EX POS; 
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113 else 

114 qio_fn = IO_EXC | EX_STR; 

115 break; 
116 

117 case BRDGSTAT: 

118 case BRDRSSTAT: 

119 buf = ( char *) arg; 

120 len = sizeof ( struct EXbdstats ); 

121 if ( cmd == BRDGSTAT ) 

122 qio_fn = IO_EXC | EX_STS ; 

123 else 

124 qio_fn = I0_EXC | EX_RST; 

125 break; 
126 

127 case BRDGCONF: 

128 buf = (char *) arg; 

129 len = sizeof (struct init_msg); 

130 qio_fn = IO_EXC | EX_CNF ; 

131 break; 
132 

133 case BRDSARP: 

134 case BRDGARP: 

135 case BRDDARP: 

136 buf = (char *) arg; 

137 len = sizeof ( struct EXarp_ioctl ) ; 

138 if ( cmd == BRDSARP ) 

139 qio_fn = I0_EXC | EX_SAR; 

140 else if ( cmd == BRDGARP ) 

141 qio_fn = IO_EXC|EX_GAR; 

142 else 

143 qio_fn = I0_EXC | EX_DAR; 

144 break; 
145 

146 case BRDADDRT: 

147 case BRDDELRT: 

148 case BRDSHOWRT: 

149 case BRDDISPRT: 

150 buf = (char *) arg; 

151 len = sizeof ( struct rtentry ); 

152 if ( cmd == BRDADDRT ) 

153 qio_fn = IO_EXC | EX_ART; 

154 else if ( cmd == BRDDELRT ) 

155 qio_fn = IOEXC | EXDRT; 

156 else if ( cmd == BRDSHOWRT ) 

157 qio_fn = I0_EXC | EXSRT; 

158 else qio_fn = IO_EXC | EXNRT; 

159 break; 
160 

161 default: 

162 break; 

163 } 

164 return ( libemt(qio_fn, &iosb, buf, len, 0, base, off, sys_id )); 
165 

166 } 

167 

168 
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169 

170 

171 xbrdopen( brdno, mode ) 

172 

173 int brdno; /* ignore for now */ 

174 int mode; 

175 { 

176 int rval; 

177 int exosfd; 

178 int ioflag; 

179 int uflag; 

180 register XFILE *file; 
181 

182 uflag = xtranmode( mode, &ioflag); 

183 if ( uflag < ) 

184 return( uflag ); 

185 rval = brdopenO, mode ); 

186 if( rval < ) 

187 return( rval ); 

188 exosfd = xnewodO; I* get a free file descriptor */ 

189 if( exosfd < ){ 

190 xbrdclose( rval ); 

191 return( exosfd ); 

192 } 

193 file = &_xiob[exosfd] ; 

194 file->_flag |= ioflag; 

195 f ile->_sys_id = (char " ; ')rval; 

196 file->_read = xbrdread; 

197 file->_ioctl = xbrdioctl; 

198 file->_write = xbrdwrite; 

199 f ile->_close = xbrdclose; 

200 return( exosfd ); 

201 } 
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1 static char sccsld[] = "@(#)bzero.c 1.4 3/26/85"; 
2 

3 /* 

4 code to make 4.2 style code, sort of, happy. 

5 */ 

6 bzero( pt, len ) 

7 /* 

8 clear a block 

9 */ 
10 

11 char "pt; 

12 int len; 

13 { 
14 

15 for( ; len > ; —len ) 

16 { 

17 *pt++ = 0; 

18 } 

19 } 
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1 /* 

2 * filename: CATCHOOB.C 

3 */ 
4 

5 #include <xgenlib.h> 

6 #define MAXCHN 40 

7 #include "libhdr.c" 
8 

9 struct asts stast[MAXCHN] = { }; 

10 extern int _astcatch(); /* this is the ast service routine written in macro */ 
11 

12 int xcatchoob( s, handler) 

13 int s; 

14 int (-handler)O; 

15 { 

16 register struct iosb v 'iosb; 

17 int ch_no; 
18 

19 if ( iosb = giosb()){ 

20 ch_no = (int )_xiob[s] ._sys_id; /* get channel number */ 

21 if ( stast[ch noj.stast == FREE){ 

22 stast[ch_no7.stast = USED; 

23 stast[ch_no] .xiobno = s; /* store xiob number */ 

24 stast[s] .userast = handler; 

25 emt(QIO,IO_ACS|SA_URG,SOLUN,0,iosb,_astcatch,0,0,0,0,0,ch_no); 

26 } 

27 else return (-1); 

28 } 

29 else return (NOSOIOSB); 

30 } 
31 

32 libast( iosb ) 

33 struct iosb *iosb; 

34 { 

35 Ushort ch no; 

36 Ushort s; 
37 

38 if( iosb ) /" if a iosb was specified — which is in this case */ 

39 { 

40 ch_no = iosb->nread; /* this is set in the ACP -/ 

41 fiosb(iosb); 

42 stast[ch_no] . stast = FREE; /* mark it free for use -/ 

43 s = stast[ch_no] .xiobno; I* get file no. */ 

44 if ( stast[ch_no] .userast ) 

45 ("' stast[ch no] .userast )(s ) ; 

46 } _ 

47 } 
48 

49 struct iosb * 

50 giosbO 

51 { 

52 return(xmalloc( sizeof (struct iosb) )); 

53 } 
54 

55 

56 fiosb(iosb) 
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57 struct iosb *iosb; 

58 { 

59 xfree(iosb); 

60 } 
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1 ^include <xgenlib.h> 

2 ^include <fcs.h> 
3 

4 char *inprm[MAXPRM] = {0}; /* array of pointers to input string */ 
5 

6 extern char _xctype[]; 

7 extern long radix(); 
8 

9 

10 cmain(pcli) 

11 char "pcli; /* poiter to command line */ 

12 { 
13 

14 int count =0; 

15 char *p = pcli; 

16 int i = 3; 
17 

18 while ( *p ) { *p = _tolower( *p ); ++p; } 

19 while( pcli && *pcli ) { 

20 switch ( -pcli ) { 
21 

22 case '<': 

23 inprm[0] = pcli + 1; 

24 break; 

25 case '>': 

26 inprm[l] = pcli + 1; 

27 break; 

28 case ' - ' : 

29 inprm[2] = pcli + 1; 

30 break; 

31 default : 

32 inprm[i++] = pcli; 

33 count++; 

34 } 

35 pcli = firstwhite( pcli, ' '); 

36 v "pcli++ = 0; /"" make argumet as string -'"/ 

37 pcli = skipwhite( pcli, ' '); 

38 } 

39 return main(count, &inprm[3]); 

40 } 
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1 /* 

2 * filename: CONNECT. C 

3 */ 
4 

5 #include <xstdio.h> 

6 #include <xerrno.h> 

7 #include "libhdr.c" 
8 

9 

10 xconnect(s, addr) 

11 int s; 

12 struct sockaddr "addr; 

13 { 

14 register XFILE -file; 

15 struct SOictl SOictl; 

16 struct iosb iosb; 
17 

18 if ( s < | | s >= JCNFILE ) 

19 return( XEBADF ); 

20 file = &_xiob[s]; 

21 if( !(file->_flag & _XUsed )) 

22 return( XEBADF ); 

23 if ( addr){ 

24 SOictl . hassa = 1; 

25 libcopy(addr,&SOictl . sa,sizeof (struct sockaddr)); 

26 } 

27 else SOictl. hassa = 0; 

28 return(libemt(IO_ACS|SA_CON, &iosb, 

29 0, 0, &SOictl, 0, 0, (int) f ile->_sys_id) ) ; 

30 } 
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1 ^include <rsxos.h> 

2 #include <xstdio.h> 

3 #include <fcs.h> 
4 

5 extern struct _rcb _rcb[]; 

6 struct dblbuf hbuf={0}, nbuf= {0}; 

7 /* 

8 extern int disk efn; 

9 */ 

10 extern char luntbl[]; 

11 extern struct dblbuf hbuf,nbuf; 
12 

13 #define CNTRLZ 0366 
14 

15 dio(sysid, call ,ast , wait ) 

16 register struct _rcb *sysid; 

17 int ( * callX); 

18 int ( * ast)(); 

19 int ( * wait)(); 

20 { 

21 static int iosb[2] = {0}; 

22 int rval; 

23 int ret; 
24 

25 if( sysid->flags & DBLBUF) { 

26 /* 

27 disk_efn += d_efn(); 

28 */ 

29 emt(WTSE,DISKEFN); /* stop for any pending i/o */ 

30 /* efn is set at ast *l 

31 hbuf. stat[hbuf. active] = 0; 

32 hbuf. active = !hbuf .active; 

33 rval = hbuf . stat[hbuf .active] ; 

34 if( rval > 0) { 

35 emt(CLEF,DISKEFN); 

36 ret = ( ""call )(sysid->f db, sysid->bptr ,0, iosb, ast ) ; 

37 if(ret <= 0) { 

38 hbuf . stat[ !hbuf. active] = ret; 

39 emt(SETF,DISKEFN); 

40 } 

41 } 

42 sysid->bptr = hbuf .buff er[hbuf .active] ; 

43 } 

44 else { 

45 rval = ( -call )( sysid->f db, sysid->bptr ,DISKEFN, iosb,0) ; 

46 if(rval > 0) { 

47 (" wait )(sysid->f db, iosb) ; 

48 rval = iosb[l]; 

49 } 

50 } 

51 sysid->bnptr = sysid->bptr; 

52 return rval; 

53 } 
54 

55 static char mask[8] = {1, 2, 4, 8, 16, 32, 64, 128}; 

56 ^define BYTE 8 
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57 #define MAXLUN 255 

58 assign(lun) 

59 int lun; 

60 { 

61 *(luntbl + lun/BYTE) |= mask[ lun % BYTE]; 
62 

63 } 
64 

65 dassign(lun) 

66 int lun; 



67 


{ 




68 






69 




*( luntbl + 1 


70 


1 




71 






72 


glun() 




73 


{ 




74 




register int 


75 




int i ; 



bit = 0; 
int i ; 
76 

77 for (i = 1; i <= MAXLUN; ++i) { 

78 i£( ! (-(luntbl + i / BYTE) & mask[ i % BYTE] ) ) { 

79 *( luntbl + i/BYTE ) |= mask[ i%BYTE]; 

80 return i; 

81 } 

82 } 

83 return -1; 
84 

85 } 

86 

87 

88 nstat(iosb) 

89 register struct iosb *iosb; 

90 {■ 

91 register int -p; 
92 

93 p = &nbu£.stat[ !nbuf. active] ; 

94 if((iosb->cc >= (unsigned char)0 ) && (iosb->lc == ( unsigned char)0)) 

95 ,v p = iosb->nread; 

96 else if(iosb->cc < ( unsigned char) ) 

97 "p = iosb->cc - 512; 

98 else 

99 -p = ( -(iosb->lc & OxFF)); 

100 emt(SETF, SOEFN); /* socket i/o is completed */ 

101 

102 } 

103 

104 dstat(iosb) 

105 register struct iosb "iosb; 

106 { 

107 register int *p; 
108 

109 p = &hbuf .stat[ !hbuf. active]; 

110 

111 if( iosb->cc == CNTRLZ ) 

112 *p = 0; 
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113 else if(iosb->cc > 0) 

114 "*p = iosb->nread; 

115 else 

116 "P = iosb->cc - 512; 

117 emt(SETF, DISKEFN); /* disk i/o is completed */ 

118 } 
119 
120 
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1 /* 

2 RSX version of getclient. 

3 */ 

4 #include <xstdio.h> 

5 #include <socket.h> 

6 #include <rsxos.h> 

7 #include <in.h> 
8 

9 getclient( type, pf, sin, options, typical_serv ) 
10 



11 




int type; 


12 




struct sockproto * ; "pf; 


13 




/* 


14 




struct sockaddr *sin; 


15 




*/ 


16 




struct sckadr in *sin; 


17 




int options; 


18 




int ("typical serv)(); 


19 


{ 




20 




int s ; 


21 




int errno; 


22 




int status; 


23 




struct sockaddr from; 


24 






25 


start : 




26 




s = xsocket( type, pf, sin, options ); 


27 




if ( s < ) 


28 




{ 


29 




xperror( s, "getclient socket" ); 


30 




xsleep( 5 ); 


31 




goto start; 


32 




} 


33 




/* 


34 




wait for service request 


35 




*/ 


36 




if ( ( errno = xaccept( s, &from ) ) < ) 


37 




{ 


38 




xperror( errno, "getclient accept" ); 


39 




xclose( s ); 


40 




xsleep( 5 ); 


41 




goto start; 
} 
/* 


4-z 
43 




44 




RSX specific process management 


45 




*/ 


46 




xspawn( ) ; 


47 




("'typical serv)( s, &from ); 


48 


} 




49 
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1 

2 ^include <rsxos.h> 

3 #include <xstdio.h> 

4 #include <xctype.h> 

5 #include <xerrno.h> 

6 #include <xspecial.h> 

7 #include <libsock.h> 
8 

9 extern char *xstrchr(), *xstrrchr(); 

10 extern char *f irstwhite( ) ; 

11 extern char *skipwhite( ) ; 

12 extern char *lastwhite( ) ; 
13 

14 char * 

15 xghname(name, nchars) 

16 char *name; 

17 int nchars; 

18 { 

19 int od; 

20 XFILE *op; 

21 char hbuf [XBUFSIZ] , *cp, -ahost; 

22 int re; 
23 

24 od = xdopen( HOSTS, XFREAD | XFASCII , FILE_NAME); 

25 if( ( od < 0) || !( op = xodopen(od, V)) ){ 

26 xperror( XEBADF, "gethname:") ; 

27 re = 1; 

28 goto egress; 

29 } 
30 

31 while (XNULL != xogets(hbuf, sizeof (hbuf), op)) { 

32 -xstrchrChbuf , '\n') = 0; 

33 if (hbuf[0] == '#*) 

34 continue; 

35 for (;;) { 

36 cp = lastwhite.(hbuf , ' '); 

37 if (cp == XNULL) 

38 break; 

39 if (!xstrcmp(cp+l, "localhost") ) { 

40 ahost = f irstwhite(hbuf , ' ')+l; 

41 ahost = skipwhite(ahost ); 

42 cp = f irstwhite(ahost , ' '); 

43 if (cp) 

44 -cp = 0; 

45 if (xstrlen(ahost)+l > nchars) { 

46 re = 1; 

47 goto egress; 

48 } 

49 xstrcpy(name, ahost); 

50 re = 0; 

51 goto egress; 

52 } 

53 -cp = 0; 

54 } 

55 } 

56 re = 1; 
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57 egress: 

58 xclose(od); 

59 return (re); 

60 } 
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1 




2 


/* 


3 


* filename: HTONS.C 


4 


*/ 


5 




6 




7 




8 


unsigned short 


9 


xhtons(x) 


10 


unsigned short x; 


11 


{ 


12 


return( (unsigned short ) ( (x«8) | ( (x»8)&0xf £ ) ) ) ; 


13 


} 


14 




15 


long 


16 


xhtonl(x) 


17 


long x; 


18 


{ 


19 


union { 


20 


long 1; 


21 


struct { 


22 


unsigned short s high, s low; 


23 


} si; 


24 


} h; 


25 


h.l = x; 


26 


h.sl.s high = xhtons(h.sl .s high); 


27 


h.sl.s low = xhtons(h.sl .s low); 


28 


return ( h.l ); 


29 


} m 


30 


unsigned short 


31 


xntohs(x) 


32 


unsigned short x; 


33 


{ 


34 


return ( xhtons(x)); 


35 


} 


36 




37 


long 


38 


xntohl(x) 


39 


long x; 


40 


{ 


41 


return( xhtons(x) ); 


42 


} 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



#define PDP11 



# include <std.h> 

# include <rsx.h> 

# include <extypes.h> 

# include <exiocmd.h> 

# include <soioctl.h> 

# include <socket.h> 

# include <exqio.h> 

# include <solibdef.h> 



extern unsigned short ex_libinit 

extern int libinitO; 
extern int libemtO; 
/" extern int check( ) ;*/ 
extern int libcopyO; 



/* below is a definition of a structure for handling user specified 
AST function calls in the catchoobO library function call *l 

#define USED 1 
#define FREE 

struct asts{ 

short stast; 
short xiobno; 
int ("userast )( ) ; 

} 
struct segaddr 

{ 

Ushort base; /* segment base address */ 

Ushort off; /* segment offset -/ 

1; 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 



filename: LIBRTS.C 



*/ 



*/ 



/* segment base address */ 
/* segment offset */ 



# include <std.h> 

# include <rsx.h> 

# include <extypes.h> 

# include <solibdef.h> 



unsigned short ex_libinit = 0; 

unsigned short unibus = 0; /* if on a UNIBUS m/c */ 

/* below is a definition of a structure for handling user specified 
AST function calls in the catchoobO library function call 

struct asts{ 

short stast; 

int ("userast )( ) ; 

1 
struct seg_addr 

{ 

Ushort base; 
Ushort off; 

}; 

int libinitO 

{ 

ex_libinit = 1; 

1 

int libcopy(f rom, to, size) 
Uchar "from, *to; 
int size; 

{ 

while ( size — ) 
"to++ = "from++; 
} 

/* 

* Objective of this function is to process different type of error resulting 
"' from a call to the driver via QIO ( or emt call in 'C 1 ) call. A QIO 

"" executive directive call reports error in two different ways through the 

DSW ( directive status word ) and also in the 10 statusblock. Again in the 
" IOSB it is divided into two parts one device specific and the other generic. 

* The generic and the dsw are returned to the caller after shifting it by -512 
" and the device specific code is just sign changed. If all is fine then an 

* non zero value is returned. 
*/ 

libemt(cmd,iosb,pl ,p2,p3,p4,p5 ,p6) 

Ushort cmd; 

struct iosb *iosb; 

Ushort pi, p2, p3, p4, p5 , p6; 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 



int j = 0,dsw; 

register int cnt,i; 

register int count = 1024; /* 1 KB */ 

if(p2 <= 0){ 
cnt = 1 ; 
count =0; 

1 
else 

cnt ~ p2; 

for(i = 0; cnt > 0; i++) { 
if((cnt < count) || (lunibus)) 

count = cnt; 
dsw = 

emt(QIOW, cmd, SOLUN, SOEFN, iosb, 0, (pi + j), count, p3, p4, p5, p6); 
if((dsw >= 0) && (iosb->cc >= 0) && (iosb->lc == 0)) { 
if(p2 <= 0) 

return 0; 
cnt -= count; 
j += iosb->nread; 
continue; /* continue on success */ 

1 
else 

if(dsw < 0) 

return(dsw - 512); /* directive error */ 
else 

i£(iosb->cc < 0) 

return(iosb->cc - 512); /* generic I/O error */ 

else 

return( - (iosb->lc & Oxff)); /* device specific error -7 

} 
iosb->nread = j; /* total # of bytes transacted */ 
return 0; /* return success */ 
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1 

2 /* 

3 

4 System entry point for client! programs running under RSX. 

5 Note: terminal => unbuffered io. 

6 */ 

7 #include <xgenlib.h> 

8 #include <xspecial.h> 

9 #include <xpwd.h> 
10 #include <fcs.h> 
11 

12 #define SY 054523 
13 

14 extern xttyreadO; 

15 extern xttywriteO; 

16 extern xttycloseO; 

17 extern xnofuncO; 

18 extern xdreadO; 

19 extern xdwriteO; 

20 extern xdcloseO; 
21 

22 struct _xiobuf _xiob[_XNFILE] = {0}; 

23 struct passwd xpassword = {0}; 

24 struct passwd *pw = &xpas sword; 

25 struct ttybuf ttybuf = {0}; 

26 int ttyinput = 0; /* — interactive . 1 — non-interactive */ 

27 struct _rcb _rcb[ XNFILE] = {0}; 

28 char luntbl[32] = To}; /* array of 256 bits used to maintain LUN */ 

29 int _brk =0; /* USED by C_RTS ALLOC & FREE */ 
30 

31 extern char _xctype[]; 

32 extern char *inprm[ ] ; 
33 

34 

35 main( argc, argv ) 

36 int argc; 

37 char **argv; 

38 { 

39 int i; 

40 register XFILE -file; 

41 char *p; 

42 int rval; 

43 int ioflag; 

44 int mod; 

45 int buf[l6]; 

46 int maxlun; 
47 

48 /" initialize _xiob structure */ 

49 for(p=(char *)_xiob; p < ( (char *)_xiob + sizeof xiob); ) 

50 *p++ = f \0'; 

51 /* initialize _rcb structre */ 

52 for( i=0; i < XNFILE ; ++i ) 

53 rcbtil. flags = RFREE; 

54 /* 

55 " initailize terminal I/O buffer 

56 */ 
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57 

58 ttybuf .curpos = ttybuf .linetty; 

59 ttybuf. tsize = 0; 
60 

61 ford = 1; i < 5; i++) 

62 emt(ALUN, i, SY, 0); 

63 emt(GTSK,buf); 

64 _brk = buf [13]; /* task size */ 

65 maxlun = buf [8]; /* # of LUN used */ 

66 ppasc(pw->cur_uic, buf[7]); 

67 ppasc(pw->login_uic,buf [ 15] ) ; 

68 emt(GLUN,l,buf ); /* get phy. device name */ 

69 xstrncpy(pw->log_dev,buf ,2) ; /* copy device name */ 

70 pw->log_dev[2] = (*((char *) buf + 2)) + 060; /* get unit # */ 

71 pw->log_dev[3] = f \0 f ; /* make it string */ 

72 xstrcpy(pw->cur_dev,pw->log_dev) ; 
73 

74 while(maxlun) { 



75 




if(emt(GLUN, maxlun, buf) > ) 


76 






assign(maxlun) ; 


77 




— maxlun; 


78 


} 






79 


for( i 


= 0, file 


= xstdin ; i < 3 ; ++i, ++file ) 


80 




{ 




81 




if(isatty(i)){ 


82 






xttyopen(XFREAD | XFWRITE) ; 


83 






} 


84 




else { 




85 






if(i == 0) 


86 






mod = XFASCII | XFREAD; 


87 






else 


88 






mod = XFASCII | XFCREAT 


89 






xdopen(inprm[ i] , mod, FILE NAME) 


90 




} 




91 




if( i = 


= ) 


92 






xodopen( i, "r" ); 


93 




else { 




94 






file->_flag |= _XIOLBF; 


95 






file-> cnt = 0; 


96 






xodopen( i , "w" ); 


97 




} 




98 




} 





99 xputchar('\n'); 
100 

101 clientinit( ) ; 
102 

103 xmain(argc, argv); 

104 xexit(O); 

105 } 
106 

107 /* 

108 * ISATTY: check object descriptor directs to terminal or not 

109 if it is terminal returns 1 else 0. 

110 * 

111 */ 
112 
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113 


isatty(< 


3d) 




114 


int 


od; 






115 


{ 








116 






i£( ! 


!inprm[od] ) 


117 








{ 


118 








if( od == 0) 


119 








ttyinput = 1; 


120 








return(l); 


121 








} 


122 






else 




123 








return(O) ; 


124 










125 


1 








126 










127 











Apr 30 21:33 1986 mkarglist.c Page 1 



1 /* 

2 @(#)xmkarglist.c 1.3 3/29/85 
3 

4 */ 

5 #include <rsxos.h> 
6 

7 #define ARGPOINTERSP 200 

8 #define ARGSPACE 400 
9 

10 static char *argbase = {0}; 

11 static char *stringbase = {0}; 
12 

13 

14 char ** 

15 xmkarglist( line, count ) 
16 

17 char "line; /* IN */ 

18 int *count; /* OUT */ 

19 { 

20 char **argp; 

21 char *slurpstring( ) ; 

22 char *argvsp; 

23 int marge; 
24 

25 marge = 0; 

26 /* 

27 Allocate space for argv and tokens in line 

28 */ 

29 if( xstrlen( line ) > ARGSPACE ) 

30 { 

31 return ( (char **)0 ); 

32 } 

33 argvsp = xmalloc( ARGPOINTERSP + ARGSPACE ); 

34 if( argvsp == (char *)0 ) 

35 { 

36 return( (char **)0 ); 

37 } 

38 argbase = &argvsp[ARGPOINTERSP] ; 

39 stringbase = line; 

40 argp = (char **) argvsp; 

41 while (*argp++ = slurpstring( ) ) 

42 margc++; 

43 "count = marge; 

44 return( (char **)argvsp ); 

45 } 
46 

47 /* 

48 * Parse string into argbuf; 

49 " implemented with FSM to 

50 * handle quoting and strings 

51 */ 

52 char * 

53 slurpstring( ) 

54 { 

55 int gotone = 0; 

56 register char "sb = stringbase; 



/" bytes for storing argument pointers */ 
/"" bytes for storing arguments */ 



/" store from first of buffer "-''/ 
/* scan from first of buffer "'*/ 
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57 




register char *ap = argbase; 


58 




char "tmp = argbase; /* will return this 


59 






60 




/* 


61 




Used to return '!' for shell event processing... 


62 




Ignore significance of '!'. 


63 




*/ 


64 


SO: 




65 




switch (*sb) { 


66 






67 




case '\0': 


68 




goto OUT; 


69 






70 




case ' ' : 


71 




case '\t': 


72 




sb++; goto SO; 


73 






74 




default : 


75 




goto SI; 


76 




} 


77 






78 


SI: 




79 




switch (*sb) { 


80 






81 




case ' ' : 


82 




case '\t': 


83 




case '\0' : 


84 




goto OUT; /* end of token */ 


85 






86 




case '\V: 


87 




sb++; goto S2; /* slurp next character */ 


88 






89 




case : 


90 




sb++; goto S3; /" slurp quoted string *l 


91 






92 




default : 


93 




*ap++ = *sb++; /"' add character to token */ 


94 




got one = 1; 


95 




goto SI; 


96 




1 


97 






98 


S2: 




99 




switch (*sb) { 


100 






101 




case '\0': 


102 




goto OUT; 


103 






104 




default: 


105 




,v ap++ = *sb++; 


106 




got one = 1; 


107 




goto SI; 


108 




} 


109 






110 


S3: 




111 




switch (*sb) { 


112 
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113 case f \0': 

114 goto OUT; 
115 

116 case ,,M : 

117 sb++; goto SI; 
118 

119 default: 

120 *ap++ = *sb++; 

121 got_one = 1; 

122 goto S3; 

123 } 
124 

125 OUT: 

126 if (gotone) 

127 *ap++ = '\0 f ; 

128 argbase = ap; /* update storage pointer */ 

129 stringbase = sb; /* update scan pointer -/ 

130 if (gotone) 

131 return(tmp) ; 

132 return((char *)0); 

133 } 
134 

135 xdealglobC pt ) 

136 /* 

137 Free space allocated by either xglob or xmkarglist 

138 */ 
139 

140 char **pt; 

141 { 
142 

143 xfree( (char *)pt ); 

144 } 
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1 # include <xgenlib.h> 

2 /* 

3 * filename: MKCMD.C 

4. *... 

5 **c;. : mkcmd creates a MCR command line . It takes a pointer 

6 *■<■ to the commandline and multiple pointers to string . 

7 */ : ' 
8 

9 char * 

10 mkcmddine, str) 

11 char *line; 

12 char *str; 

13 { 

14 char **argp = &str; 
15 

16 '''line = '\0'; /* clear command line */ 

17 while( *argp) /» till a null argument */ 

18 xstrcat( line, "argp++ ); 

19 return(O); 

20 } 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



/* 



FILENAME: 



MKNAME.C 



This routine updates the name according to default dev & dir, 
it must be invoked after parse. It takes the input from CSI 
control block, which is created by parse routine. 

OUTPUT: 

If more file spec it returns size of current file_spec 
else ' — no more in-spec 



*/ 



#include <xpwd.h> 
^include <xgenlib.h> 

extern struct passwd *pw; 
extern char "'csiblk; 

mkname(name) 
char *name; 

int rval; 
char dev[6] ; 
char uic[l0] ; 
char nam[l5] ; 
int filelen = 0; 

dev[0] = f \0'; 
uic[0] = f \0'; 
nam[0] = 'XO 1 ; 



/* initialize default dev. */ 
/" initialize default dir. */ 



Xcsiblk + C DEVD)); 



xstrcpy(dev,pw->cur_dev) ; 
xstrcpy(uic,pw->cur_uic) ; 
if(csiblk[C_STAT] & CS_DVF){ 

xbcopy(*(int *)(csiblk+C_DEVD+2),dev,*(int 

dev[*(int *)(csiblk + CDEVD ) ] = 'XO'; 

filelen += -(int *) (csiblk + CDEVD) + 1 ; 

} 

if(csiblk[C_STAT] & CS_DIF){ 

xbcopy(-(int *)(csiblk+C_DIRD+2) ,uic, *( int - v )(csiblk + C_DIRD)); 

uic[*(int *)(csiblk + C_DIRD ) ] = '\0'; 

filelen += -(int *)(csiblk + CDIRD ); 

} 

if(csiblk[C_STAT] & CS_NMF){ 

xbcopy(-(int *)(csiblk+C_FILD+2),nam,*(int 

nam[*(int *)(csiblk + CFILD ) ] = f \0'; 

filelen += *(int *)(csiblk + C_FILD ); 

} 

mkcmd ( name , dev , " : " , ui c , nam , ) ; 

if(csiblk[C_STAT] & CS_MOR) 

rval = filelen; 
else 

rval = 0; 
return(rval) ; 



•Xcsiblk + C FILD)); 



} 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 



filename: 



MUXIO.C 



*/ 



#include <rsxos..h> 

,#include <xstdio.h> 

#include <xspecial.h> 

#include <solibdef.h> 

#define IO_XFR 003400 
#define IX_RDS 0000 
#define TTYEFN 2 
#define SLEEP_EFN 3 
#define strip(x) 



((x) & 0177) 



short ready 1 = 1; 
short ready2 = 0; 
struct iosb { 

char cc; 

char lc; 

int nread; 

}; 

struct iosb isbl = {0}; /* 
struct iosb isb2 = {0}; /* 
int rod2 = 0; 



/" rodl is readable 



*/ 



/* rod2 is initially not readable */ 



10 status block for netread 
10 status block for netwrite 



static char 
static char 



sibuf[XBUFSIZ] = {0}; 
"tibuf[XBUFSIZ] = {0}; 



extern int ttyraw 
extern char escape 
static int sec = 
static int tec = 



char "_tbufp = _tibuf; 
extern mynetreadO; 
extern myttyread( ) ; 
extern _xsoioctl(); 
extern int xttyreadO; 
extern astrd2(); 
extern int wrap; 
extern int ttylun; 



/* 1 == 



raw 



== line edit 



*/ 
*/ 



*/ 



/* byte count for net_read -*/ 
/* byte count for tty_read */ 



xmux io( serv id, io procl, rodl, wodl, io_proc2, rod2, wod2 ) 



char -serv_id; 

int ("io_procl)( ) ; 

int rodl; 

int wodl; 

int (*io_proc2)(); 

int rod2; 

int wod2; 

{ 



/-' service identifier, see getclient(3X) -/ 

/"" Network to terminal process */ 

/"'' descriptor for first process to read */ 

/* descriptor for first process to write */ 

/" Terminal to network process */ 

/* descriptor for second process to read */ 

/* descriptor for second process to write */ 



short last_read = 1; /* 
short netrfin = 1; /* 



last descriptor read */ 

initialize - net read has finished */ 
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57 int pidl; /* dummy process id - not used */ 

58 int pid2; /* dummy process id - not used *7 
59 

60 _rod2 = rod2; 

61 _xiob[rodl]._read = mynetread; 

62 _xiob[rodl] ._ioctl = _xsoioctl; 
63 

64 emt(CLEF,SLEEP_EFN); 

65 emt(QIOW,IO_ATA,ttylun,TTYEFN,0,0,astrd2,0, 0,0,0,0); 

66 for( ;; ) { 
67 

68 _xiob[rod2] ._read = myttyread; 

69 

70 if(readyl) 

71 if(netrfin){ 

72 rdl(rodl); /* do a net read */ 

73 netrfin = 0; /* netread is pending */ 

74 } 
75 

76 if(( readyl && ready2 && (last_read == 2)) || 

77 (readyl && !ready2 )) 

78 { 

79 (-io_procl)(pid2,rodl,wodl) ; 

80 lastread = 1; 

81 netrfin = 1; /* net read has finished */ 

82 } 

83 else if(ready2) 

84 { 

85 emt(DSAR); 

86 ("io_proc2)(pidl ,rod2,wod2) ; 

87 lastread = 2; 

88 ready2 = 0; 

89 _tbufp = _tibuf; 

90 tec = 0; 

91 emt(ENAR); 

92 } 

93 else { 

94 emt(STSE, SLEEP_EFN); 

95 emt(CLEF, SLEEP_EFN); 

96 } 

97 } 

98 } 
99 

100 /* 

101 * RD1 

102 */ 
103 

104 rdl(rodl) 

105 int rodl; 

106 { 
107 

108 readyl = 0; /* make rodl non-readable */ 

109 _xsoread(rodl ,_sibuf ,sizeof sibuf); 

110 } 
111 

112 /* 
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113 * MYNETREAD 

114 */ 
115 

116 mynetread(s,buf ,len) 

117 int s; 

118 char *buf; 

119 int len; 

120 { 

121 if(scc > 0) 

122 xbcopy(_sibuf ,bu£,scc) ; 

123 return(scc); 

124 } 
125 

126 /* 

127 * MYTTYREAD 

128 */ 
129 

130 myttyread(sys_id,buf ,len) 

131 char *sys_id; 

132 char *buf; 

133 int len; 

134 { 

135 char c = _tibuf[0]; 

136 int cnt; 
137 

138 /*emt(DSAR); disable ast recognition */ 

139 /* if first char is an escape then do normal read */ 

140 if(strip(c) == escape) 

141 _xiob[_rod2] .read = xttyread; 

142 if((cnt=tcc) > 0) 

143 xbcopy(_tibuf ,buf , tec) ; 
144 

145 /* 

146 _tbufp = _tibuf ; 

147 tec = 0; 

148 emt(ENAR); 

149 */ 

150 return(cnt); 

151 } 
152 

153 extern astrdK); 
154 

155 xsoread( s, buf, len) 

156 int s; 

157 char *buf; 

158 int len; 

159 { 

160 int i; 
161 

162 i = (int )_xiob[ s] ._sys_id; 

163 emt(DSCP); /* disable checkpointing */ 

164 emt(QIO,IO_XFR|lX_RDS,SOLUN,0,&isbl,astrdl,buf ,len,0,0,0,i); 

165 } 
166 

167 /* 

168 "* NRSTATUS — called from the ast service routine astrdl to set the 
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169 " return status of the read issued to the network. 

170 */ 
171 

172 nrstat(iosb) 

173 struct iosb *iosb; 

174 { 
175 

176 if((iosb->cc >= (unsigned char )0) && (iosb->lc == (unsigned char )0)) 

177 sec = iosb->nread; 

178 else if(iosb->cc < (unsigned char )0) 

179 sec = iosb->cc - 512; /* generic I/O error */ 

180 else 

181 sec = (-(iosb->lc & OxFF)); /* device specefic error-/ 
182 

183 ready 1 =1; /* rodl is now ready to read */ 

184 emt(ENCP); /* enable checkpointing */ 

185 emt(SETF, SLEEP_EFN); 

186 } 
187 
188 

189 /* 

190 * XKILL — waits for any outstaning I/O on the network 

191 */ 
192 

193 xkill(pid) 

194 int pid; 

195 { 

196 char stadd[2]; 
197 

198 emt(QIOW,IO_DET,ttylun,TTYEFN,0, 0,0,0,0, 0,0,0); 

199 emt(QIOW,IO_KIL,ttylun,TTYEFN, 0,0,0, 0,0, 0,0,0); 

200 if(wrap) { /* previously in wrap mode so set it accordingly */ 

201 stadd[0] = TC_ACR; 

202 staddtl] = 1; 

203 emt (QIOW , SFSMC , t tyl un , TTYEFN , , , s t add , 2 , , , , ) ; 

204 } 
205 

206 xexit(O); 

207 } 

208 /* 

209 * _xsoioctl — kill any outstanding i/o on the network and 

210 * then call actual xsoioctl function. 

211 */ 
212 

213 _xsoioctl(net ,cmd,arg) 

214 int net; 

215 int cmd; 

216 int arg; 

217 { 

218 emt(ENAR); /* enable ast recoginition */ 

219 /* emt(QIOW,IO_KIL,SOLUN,SOEFN,0,0,0,0,0,0,0,0); */ 

220 xsoioctKnet , cmd, arg) ; 

221 } 

222 /* 

223 * 

224 * TRSTAT — get a character from ast stack and put it into the tibuf 
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225 


*/ 




226 






227 


trstatO 


c) 


228 


char c; 




229 


{ 




230 






231 




" tbu£p++ = c; 


232 




tcc++; 


233 
234 




ready2 = 1 ; 
emt(SETF, SLEEPEFN); 


235 


} 
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1 /* 

2 @(#)passthru.c 1.3 3/29/85 
3 

4 Xpasstnet(3X) and xpassfnet(3X) for Rsx. 

5 */ 

6 #include <rsxos.h> 

7 #include <xstdio.h> 

8 #include <xerrno.h> 

9 #include <ftp.h> 

10 ^include <extypes.h> 

11 #include <fcs.h> 

12 #define HASHSIZE 1024 

13 extern int type; 

14 extern int hash; 

15 extern struct _rcb _rcb[]; 

16 extern long _xpass(); 

17 extern int _dread(); 

18 extern int _dwrite(); 

19 extern int _soread(); 

20 extern int _sowrite(); 
21 

22 #define CNTRLZ 0366 
23 

24 extern struct dblbuf hbuf ; 

25 extern struct dblbuf nbuf ; 

26 long 

27 xpasstnet( inod, outod ) 
28 

29 register XFILE -inod; /* input EXOS io object */ 

30 register XFILE *outod; /* output EXOS io object */ 

31 { 

32 long bytes; 

33 int rval; 

34 register struct _rcb *insys = ( struct _rcb * )inod->_sys_id; 

35 /* make od's as double buffer */ 
36 

37 hbuf .buf fer[ l] = inod->_base; 

38 inod->_base = outod->_base; 

39 nbuf .buf fer[0] = outod->_base; 

40 if( (rval = xmalloc(XBUFSIZ) ) == XNULL ) { 

41 /* 

42 xoprintf (xstdout ,"passtnet buffer pointer = %d\n",rval); 

43 */ 

44 return (long) XENOMEM; 

45 } 

46 nbuf .buf fer[ l] = (char *) rval; 

47 outod->_write = _sowrite; 

48 nbuf.stat[l] = 1; /* initialize write status */ 

49 hbuf. active = 1; 

50 nbuf. active = 0; 

51 insys->bptr = insys->bnptr = hbuf .buf fer[ 1 ] ; 

52 insys->bleft = 0; 

53 insys->flags |= DBLBUF; 

54 hbuf.fd = inod; 

55 nbuf.fd = outod; 

56 bytes = xpass( inod, outod ); 
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57 inod->_base = hbuf .buffer[ !hbuf. active] ; 

58 outod->_base =nbuf .buffer[ !nbuf. active] ; 

59 insys->flags &= -DBLBUF; 

60 emt(WTSE,SOEFN); 

61 /* 

62 xprintfC No. of socket i/o wait %d\n",socket_efn) ; 

63 xprintfC No. of disk i/o wait %d\n",disk_efn) ; 

64 */ 

65 xfree(nbuf .buf fer[nbuf. active] ) ; 

66 return bytes; 

67 } 
68 

69 

70 long 

71 xpassfnet( inod, outod ) 
72 

73 register XFILE -inod; /* input EXOS io object */ 

74 register XFILE *outod; /* output EXOS io object */ 

75 { 

76 long bytes; 

77 int rval; 

78 register struct _rcb *outsys = ( struct _rcb * ) outod->_sys_id; 

79 /* make od's as double buffer */ 
80 

81 hbuf . buff er[l] = outod->_base; 

82 outod->_base = inod->_base; 

83 nbuf .buffer[0] = inod->_base; 

84 if( (rval = xmalloc(XBUFSIZ) ) == XNULL ) { 

85 /* 

86 xoprintf (xstdout ,"passfnet buffer pointer = %d\n",rval ) ; 

87 */ 

88 return (long) XENOMEM; /* No memory */ 

89 } 

90 nbuf .buff er[l] = (char *) rval; 

91 inod->_read = _soread; 

92 nbuf.stat[0] = xsoread(inod->_sys_id,inod->_base, XBUFSIZ); 

93 hbuf.stat[l] = 1; /* initialize write status */ 

94 inod->_base = nbuf .buf fer[ l] ; 

95 nbuf. active = 1; 

96 hbuf. active = 0; 

97 outsys->flags |= DBLBUF; 

98 hbuf.fd = outod; 

99 nbuf.fd = inod; 

100 bytes = _xpass( inod, outod ); 

101 outod->_base = hbuf .buf fer[ !hbuf. active] ; 

102 inod-> base = nbuf .buf fer[ !nbuf. active] ; 

103 outsys->flags &= -DBLBUF; 

104 emt(WTSE,DISKEFN); 

105 /* 

106 xprintfC No. of socket i/o wait %d\n", socket_efn) ; 

107 xprintfC No. of disk i/o wait %d\n",disk_efn) ; 

108 */ 

109 xfree(nbuf .buff er[ nbuf .active]); 

110 return bytes; 

111 } 
112 
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113 

114 long 

115 _xpass( inod, outod ) 

116 register XFILE "inod; /* input EXOS io object *7 

117 register XFILE *outod; /* output EXOS io object */ 

118 { 

119 int c; 

120 int d = 0; 

121 long bytes = (long )0; 

122 long hashbytes = XBUFSIZ; 
123 

124 emt(SETF, SOEFN); /* No pending i/o on socket -7 

125 emt(SETF, DISKEFN); /* No pending i/o on disk */ 

126 while ((c = xread(xf ileno(inod) , inod->_base, XBUFSIZ)) > 0) { 

127 if ((d = xwrite(xf ileno(outod) , outod->_base, c)) < 0) 

128 break; 

129 bytes += c; 

130 if (hash) { 

131 xputchar( f #'); 

132 xf f lush(xstdout ) ; 

133 } 

134 } 

135 if (hash) { 

136 xputcharCW ); 

137 xf f lush(xstdout ) ; 

138 } 

139 if (c < 0) { 

140 xperror( c, "on input"); 

141 return( (long)c ); 

142 } 

143 if (d < 0) { 

144 /* 

145 Throw any data remaining in pipe 

146 */ 

147 while 

148 ((c=xread(xfileno(inod),inod->_base, XBUFSIZ)) > 0) 

149 ; 

150 xperror( d, "on output"); 

151 return( (long)d ); 

152 } 

153 return bytes; 
154 

155 } 
156 

157 _dread(sysid,buf ,size) 

158 register struct _rcb *sysid; 

159 char *buf; 

160 int size; 

161 { 
162 

163 if( size < ) 

164 return -1; /* error */ 

165 if( sysid->flags & REOF ) 

166 return 0; /* eof */ 

167 if( type == TYPEA ) 

168 return ( getnet( sysid,buf , size) ); 
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169 else 

170 return ( bread(sysid,buf ,size) ); 

171 } 
172 

173 getnet(sysid,buf ,size) 

174 register struct rcb *sysid; 

175 char *buf; 

176 register int size; 

177 { 

178 register int count = 0; 

179 int rval; 

180 while(size — ) { 

181 if( !(sysid->flags & REOLN )) { 

182 if( !sysid->bleft && ((rval = getblk(sysid) ) < 0) ) 

183 return count ? count i rval; 

184 if( sysid->rec.rleft <= && ((rval = endrec(sysid) ) < 0) ) 

185 return count ? count : rval; 

186 i£( sysid->£lags & REOF ) { /* EOF */ 

187 *buf++ = '\r'; 

188 * bu f = '\n f ; 

189 return count+2; 

190 } 

191 } 

192 if(sysid->flags & REOLN) { 

193 if(sysid->flags & RCRFLAG) { 

194 * bu f ++ = '\r' ; 

195 sysid->flags &= "RCRFLAG; 

196 } 

197 else { 

198 *buf++ = 'Xn 1 ; 

199 sysid->flags &= -REOLN; 

200 } 

201 } 

202 else if( sysid->rec.rlef t ) { 

203 *buf++ = *sysid->bnptr++; 

204 — sysid->bleft; 

205 — sysid->rec.rlef t ; 

206 } 

207 else { /* case of zero records */ 

208 ++size; 

209 continue; 

210 } 

211 ++count; 

212 } /" end of while */ 
213 

214 return count; 

215 } 
216 

217 bread(sysid) 

218 register struct _rcb -sysid; 

219 { 
220 

221 int *p; 

222 int «q; 

223 int rval; 
224 
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225 rval = getblk(sysid) ; 

226 p = hbuf.bu££er[hbuf .active] ; 

227 q = nbuf. buffer [nbuf .active] ; 

228 hbuf . buffer [hbuf. active] = q; 

229 sysid->bptr = sysid->bnptr = q; 

230 nbuf .buffer[nbuf. active] = p; 

231 hbuf .fd->_base = nbuf .fd->_base = p; 

232 return rval; 

233 } 
234 

235 _dwrite(sysid,buf ,size) 

236 register struct rcb v 'sysid; 

237 char *buf; 

238 int size; 

239 { 

240 if( size < 0) 

241 return -1; /* error */ 

242 if( type == TYPE_A ) 

243 return ( _put(sysid,buf ,size) ); 

244 else 

245 return ( bwrite(sysid,buf ,size) ); 

246 } 
247 
248 

249 bwrite(sysid,buf ,size) 

250 register struct _rcb *sysid; 

251 char *buf; 

252 int size; 

253 { 
254 

255 int *p; 

256 int *q; 
257 

258 p = hbuf .buffer[hbuf. active] ; 

259 q = nbuf ,buffer[nbuf. active] ; 

260 hbuf ,buffer[hbuf . active] = q; 

261 sysid->bptr = sysid->bnptr = q; 

262 sysid->bleft = BLKSIZE - size; 

263 nbuf .buff ertnbuf. active] = p; 

264 nbuf .fd->_base = hbuf .fd->_base = p; 
265 

266 if ( size < BLKSIZE ) 

267 return 1; 

268 return putblk(sysid) ; 

269 } 

270 _soread(s,buf ,len) 

271 int s; 

272 char *buf; 

273 int len; 

274 { 

275 return ( sio(s ,buf ,len,IO_XFR| IX_RDS) ); 

276 } 
277 

278 _sowrite(s,buf ,len) 

279 int s; 

280 char *buf; 
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281 int len; 

282 { 

283 return ( sio(s,buf ,len,IO_XFR| IX_WRS) ); 

284 ) 
285 

286 extern int astsioO; 
287 

288 sio(s,buf ,len,iocode) 

289 int s; 

290 char *buf; 

291 int len; 

292 int iocode; 

293 { 

294 static struct iosb ios = {0}; 

295 int rval; 

296 char *pbuf; 

297 int ret; 
298 

299 
300 

301 /* 

302 socketefn += s_efn(); 

303 */ 

304 emt(WTSE, SOEFN); /* stop for i/o completion */ 

305 rval = nbu£.stat[ !nbu£. active ] ; /* # of bytes read */ 

306 if( (rval > 0) && (rval < len) && ( type != TYPEA) && 

307 (iocode == ( I0_XFR | IX_RDS )) 

308 ) 

309 { /* Previous buffer is not yet completly read. 

310 Since in the binary mode, buffer's are flipped 

311 instead of data transfer. We need to read buffer 

312 fully ( disk block = 512 bytes ). 

313 */ 
314 

315 pbuf = nbuf .buff er[ !nbuf. active] ; 

316 

317 while (rval < len) { 

318 if (libemt ( iocode, &ios ,pbuf+rval ,len-rval ,0,0,0, s) ) 

319 break; /* I/O error */ 

320 if(!(ret = ios.nread)) 

321 break; /* EOF */ 

322 rval += ret; 

323 } /" repeat loop, buffer is not yet read fully */ 

324 nbuf .stat [! nbuf .active] = rval; /* # of bytes read */ 

325 } 

326 /* 

327 * flip the buffer 

328 */ 

329 nbuf .stat[nbuf. active] = 0; 

330 nbuf. active = !nbuf .active; 

331 nbuf ,fd->_base = nbuf .buffer[nbuf. active] ; 

332 hbuf .fd->_base = nbuf .fd->_base; 

333 if( rval > 0) { 

334 emt( CLEF, SOEFN); 

335 emt(QIO,iocode,SOLUN,0,&ios ,astsio,buf , len, 0,0,0, s) ; 

336 } 
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337 return rval; 

338 

339 } 

340 
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1 #include <rsxos.h> 

2 #include <xstdio.h> 

3 #include <xspecial.h> 

4 #include <xerrno.h> 

5 #include <libsock.h> 
6 

7 

8 extern char *xstrchr(); 

9 extern char *f irstwhite( ) ; 

10 extern char *lastwhite( ) ; 

11 extern char *skipwhite( ) ; 
12 

13 

14 char * 

15 xraddr(desaddr) 

16 long desaddr; 

17 { 

18 int od; 

19 XFILE *op ; 

20 char hbuf [XBUFSIZ] , *cp, *host; 

21 int first = 1; 
22 

23 od = xdopen( HOSTS, XFREAD|XFASCII , FILE_NAME ); 

24 if ( ( od < ) | | !( op = xodopen ( od, "r"))){ 

25 xperror(XEBADF, "raddr: "); 

26 xexit(l); 

27 } 

28 top: 

29 while (xogets(hbuf , sizeof (hbuf), op) && xstrchr(hbuf , '\n')) { 

30 long addr ,rnumber( ) ; 
31 

32 *xstrchr(hbuf , '\n') = 0; 

33 if (hbuf[0] == '#') 

34 continue; 

35 if ((addr = rnumber(hbuf ) ) == -1) 

36 continue; 

37 if (addr != desaddr) 

38 continue; 

39 host = firstwhite(hbuf , ' ' ) + 1; 

40 host = skipwhite(host ) ; 

41 cp = f irstwhite(host , ' '); 

42 if (cp) 

43 * cp = o; 

44 cp = xmalloc(xstrlen(host )+l ) ; 

45 xstrcpy(cp, host); 

46 xclose( od ); 

47 return (cp); 

48 } 

49 if (first == 1) { 

50 first = 0; 

51 xclose(od); 

52 if (((od =xdopen(HOSTSLOCAL,XFREAD|XFASCII,FILE_NAME))>= 0) 

53 && ( op = xodopen( od, V 1 ))) 

54 goto top; 

55 else{ 

56 xperror( XEBADF , "raddr:"); 
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57 




xexit( 1 ); 


58 




} 


59 




return (0); 


60 




} 


61 


bad: 




62 




xclose(od) ; 


63 




return (0); 


64 


} 





Apr 30 21:33 1986 receive. c Page 1 



1 

2 /* 

3 * filename: RECEIVE. C 

4 */ 
5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "libhdr.c" 
9 

10 

11 static 

12 int receive (s,from,buf ,len) 

13 int s; 

14 struct sockaddr "'"from; 

15 char *buf; 

16 int len; 

17 { 

18 int ret,i; 

19 struct SOictl SOictl; 

20 struct iosb iosb; 
21 

22 if (from) { 

23 SOictl . hassa = 1; 

24 libcopy(from,&SOictl.sa,sizeof (struct sockaddr)); 

25 } 

26 else SOictl . hassa = 0; 

27 ret = libemt(lO_XFR| IX_RCV, &iosb, buf, len, &SOictl, 0, 0, s); 
28 

29 if ( ret == 0) 

30 ret = iosb . nread; 

31 return ( ret ); 

32 } 
33 

34 

35 xreceive(s, from, msg, len) 

36 

37 int s; 

38 struct sockaddr "from; 

39 char "msg; 

40 int len; 

41 { 

42 register XFILE *file; 
43 

44 if ( s < | | s >= XNFILE ) 

45 return( XEBADF ); 

46 file = & xiob[s]; 

47 if( !( file->_flag & _XUsed )) 

48 return( XEBADF ); 

49 return( receive( (int )f ile->_sys id, from, msg, len )); 

50 } 
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1 #include <rsxos.h> 

2 #include <xstdio.h> 

3 #include <xctype.h> 

4 #include <xerrno.h> 

5 #include <xspecial.h> 

6 #include <libsock.h> 
7 

8 

9 extern char *xstrchr( ) , *xstrrchr(); 

10 extern char *f irstwhite( ) ; 

11 extern char *lastwhite( ) ; 

12 extern char *skipwhite( ) ; 

13 static char host_name[40] = {0}; 
14 

15 long rnumberO; 
16 

17 long 

18 xrhost(ahost ) 

19 char **ahost; 

20 { 

21 int od; 

22 XFILE *op; 

23 char hbuf [XBUFSIZ] , * cp ; 

24 int first = 1; 

25 long addr; 
26 

27 if (isdigit(* ,v ahost ) && (addr = rnumberO'^ahost ) ) != -1) { 

28 xoprintf (xstderr , "addr=%x\n M , addr); 

29 return (addr); 

30 } 

31 od = xdopen( HOSTS, XFREAD|XFASCII , FILE_NAME); 

32 if ( ( od < ) | | !( op = xodopen( od, "r"))){ 

33 xperror( XEBADF ,"rhost:"); 

34 xexit( 1 ); 

35 } 

36 top: 

37 while (xogets(hbuf , sizeof (hbuf), op)) { 

38 *xstrchr(hbuf , '\n') = 0; 

39 if (hbuf[0] == '#') 

40 continue; 

41 for (;;) { 

42 cp = lastwhite(hbuf , ' '); 

43 if (cp == XNULL) 

44 break; 

45 if ( !xstricmp(cp+l , *ahost)) { 

46 if ((addr = rnumber(hbuf ) ) == -1) 

47 goto bad; 

48 xclose(od); 

49 -ahost = firstwhite(hbuf , ' ' ) + 1; 

50 "''ahost = skipwhite( *ahost ); 

51 cp = firstwhite( "'ahost , ' '); 

52 if (cp) 

53 *cp = 0; 

54 xstrcpy(host_name, ""ahost); 

55 "'ahost = host_name; 

56 return (addr); 
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57 } 

58 * cp = o; 

59 } 

60 } 

61 if (first == 1) { 

62 first = 0; 

63 xclose(od); 

64 od = xdopen(HOSTSLOCAL, XFREAD|XFASCII , FILE_NAME); 

65 if ( ( od >= ) && ( op = xodopen ( od, V')) ) 

66 goto top; 

67 else{ 

68 xperror( XEBADF ,"rhost:"); 

69 xexit( 1 ); 

70 } 

71 return (-1); 

72 } 

73 bad: 

74 xclose(od); 

75 return (-1); 

76 } 
77 

78 long 

79 rnumber(cp) 

80 register char *cp; 

81 { 

82 register long val; 

83 register int base; 

84 register char c; 

85 long parts = 0; 

86 char "pplow = (char *)&parts; 

87 char *pplim = pplow+4; 

88 char *pp = pplow; 

89 long net, imp, hoi; 
90 

91 if (xstrchr(cp, '/') == 0) 

92 goto again; 

93 hoi = xatoi(cp); 

94 if (xstrchr(cp, * ,' )) { 

95 imp = xatoi(xstrchr(cp, '/') + 1); 

96 net = xatoi(xstrchr(cp, ',') + 1); 

97 hoi = xntohs( (short )hoi ) ; 

98 val = (net«24)|(hoi«8)|imp; 

99 } else { 

100 net = xatoi(xstrchr(cp, '/') + 1); 

101 val = (net«24)|hoi; 

102 } 

103 /* 

104 val = xhtonl(val); 

105 */ 

106 return (val); 
107 

108 again: 

109 

110 

111 

112 



val = 0; base = 10; 




if (*cp == '0') 




base = 8, cp++; 




if (*cp == 'x' || *''cp == 


•x») 
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113 base = 16, cp++; 

114 while (c = *cp) { 

115 if (isdigit(c)) { 

116 val = (val * base) + (c - '0'); 

117 cp++; 

118 continue; 

119 } 

120 if (base == 16 && isxdigit(c) ) { 

121 val = (val « 4) + (c + 10 - (islower(c) ? 'a' : 'A')); 

122 cp++; 

123 continue; 

124 } 

125 break; 

126 } 

127 if (*cp == '.') { 

128 /* 

129 * Internet format: 

130 * net .host .In. imp 

131 */ 

132 if (pp >= pplim) 

133 return (-1); 

134 *pp++ = val, cp++; 

135 goto again; 

136 } 

137 if (*cp) { 

138 /* 

139 if ( ,v cp == f n') return (xhtonl(val ) ) ; 

140 */ 

141 if (*cp == 'n') return (val); 

142 if ( (*cp !='')&& (*cp != '\t')) return (-1); 

143 } 

144 if (pp >= pplim) 

145 return (-1); 

146 "pp++ = val ; 

147 /* 

148 return xhtonl(parts) ; 

149 */ 

150 return (parts); 

151 } 
152 

153 char * 

154 skipwhite( cpt ) 
155 

156 char *cpt; 

157 { 
158 

159 while( cpt && ( *cpt == ' * || -cpt == '\t' )) 

160 ++ c pt; 

161 return ( cpt ); 

162 } 
163 
164 

165 char * 

166 firstwhite( cpt, ch ) 

167 /* 

168 find first white space 
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169 */ 
170 

171 char *cpt; 

172 char ch; 

173 { 
174 

175 while( cpt && *cpt && *cpt != ' ' && *cpt != '\t' ) 

176 ++cpt; 

177 if ( cpt && -cpt ) { 

178 return( cpt ); 

179 } 

180 return ( XNULL ); 

181 } 
182 

183 char * 

184 lastwhite( cpt, ch ) 

185 /* 

186 find last white space 

187 */ 
188 

189 char < v cpt; 

190 char ch; 

191 { 

192 char *ocpt = XNULL; 
193 

194 while( ( cpt = firstwhite( cpt, ''))!= XNULL ) { 

195 ocpt = cpt; 

196 cpt++; 

197 } 

198 return( ocpt ); 

199 } 
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1 

2 /* 

3 * filename: SEND.C 

4 */ 
5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "libhdr.c" 
9 

10 int send (s, to, msg, len) 

11 int s; 

12 struct sockaddr "to; 

13 char *msg; 

14 int len; 

15 { 

16 int ret,i; 

17 struct iosb iosb; 

18 struct SOictl SOictl; 
19 

20 if ( to ) { 

21 SOictl . hassa = 1; 

22 libcopy(to,&SOictl .sa,sizeof (struct sockaddr)); 

23 } 

24 else SOictl. hassa = 0; 

25 ret = libemt(lO_XFR| IX_SND, &iosb, msg, len, &SOictl, 0, 0, s); 
26 

27 if ( ret == ) 

28 ret = iosb . nread; 

29 return (ret); 

30 } 
31 

32 

33 xsend(s, to, msg, len) 

34 

35 int s; 

36 struct sockaddr "to; 

37 char "'msg; 

38 int len; 

39 { 

40 register XFILE -file; 
41 

42 if ( s < | | s >= _XNFILE ) 

43 return( XEBADF ); 

44 file = &_xiob[s]; 

45 if( !(file->_flag & _XUsed )) 

46 return( XEBADF ); 

47 return( send( ( int )f ile->_sys_id, to, msg, len )); 

48 } 
49 
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1 /* 

2 * filename: SOCKADDR.C 

3 */ 
4 

5 #include <xstdio.h> 

6 #include <xerrno.h> 

7 ^include "libhdr.c" 
8 

9 
10 
11 

12 int xsktaddr(s,addr) 

13 int s; 

14 struct sockaddr *addr; 
15 

16 { 

17 register XFILE -file; 

18 int ret; 

19 struct SOictl SOictl; 

20 struct iosb iosb; 
21 

22 if ( s < | | s >= _XNFILE ) 

23 return( XEBADF ); 

24 file = &_xiob[s]; 

25 if( !(file->_flag & XUsed )) 

26 return( XEBADF ); 

27 if ( addr ){ 

28 SOictl . hassa = 1; 

29 libcopy(addr ,&S0ictl .sa,sizeof (struct sockaddr)); 

30 } 

31 else SOictl . hassa = 0; 

32 ret = libemt(lO_ACS | SA_SAD,&iosb,0,0,&SOictl ,0,0, (int) f ile->_sys_id) ; 
33 

34 if ( ret >= 0) 

35 libcopy(&SOictl .sa, addr, sizeof ( struct sockaddr )); 

36 return ( ret ) ; 

37 1 
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1 /* 

2 * filename: SOCKET. C 

3 */ 
4 

5 #include <xstdio.h> 

6 #include <libhdr.c> 
7 

8 

9 extern xsoreadO; 

10 extern xsowriteO; 

11 extern xsoioctK); 
12 

13 static 

14 int socket( type, pf, addr, options) 

15 int type; 

16 struct sockproto "pf; 

17 struct sockaddr *addr; 

18 int options; 

19 { 

20 int ret; 

21 struct iosb iosb; 

22 struct SOictl SOictl; 
23 

24 if ( addr ){ 

25 SOictl. hassa = 1; 

26 libcopy( addr, &SOictl.sa, sizeof ( struct sockaddr )); 

27 } 

28 else SOictl. hassa = 0; 

29 if ( pf ){ 

30 SOictl. hassp = 1; 

31 libcopy( pf , &S0ictl.sp, sizeof ( struct sockproto )); 

32 } 

33 else SOictl. hassp = 0; 

34 SOictl . type = type; 

35 SOictl . options = options; 

36 ret= libemt(lO_ACS | SA_OPN,&iosb, 0,0, &SOictl ,0,0,0) ; 

37 if ( ret == ) 

38 ret = iosb.nread; 

39 return ( ret ); 

40 } 
41 

42 
43 

44 int xsoclose( s ) 

45 int s; 

46 { 

47 int ret; 

48 struct iosb iosb; 
49 

50 ret = libemt(IO_ACS|SA_CLS, &iosb, 0, 0, 0, 0, 0, s); 
51 

52 if (( iosb.cc ) && ( iosb.lc == ) ) 

53 ret = 1; 

54 else ret = -1; 

55 return ( ret ); 

56 } 
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57 
58 
59 
60 

61 xsocket( type, pf, addr, options ) 

62 int type; 

63 struct sockproto *pf; 

64 struct sockaddr *addr; 

65 int options; 

66 { 

67 int rval; 

68 int exosfd; 

69 register XFILE *file; 
70 

71 rval = socket ( type, pf, addr, options ); 

72 if( rval < ) 

73 return( rval ); 

74 exosfd = xnewodO; /* get a free file descriptor */ 

75 if( exosfd < ) 

76 return( exosfd ); 

77 file = &_xiob[exosfd] ; 

78 file->_flag | = _XIORW | _XPrimary ; 

79 f ile->_sys_id = (char *)rval; 

80 file->_read = xsoread; 

81 file->_write = xsowrite; 

82 file->_ioctl = xsoioctl; 

83 file->_close = xsoclose; 

84 return( exosfd ); 

85 } 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



/* 



filename: SOCONTROL.C 



*/ 

#include "libhdr .c" 

int xsoioctl( dev, cmd, addr) 
int dev, cmd; 
char "addr; 

{ 

int ret; 

struct iosb iosb; 
struct SOictl SOictl; 
Uchar CMD = (Uchar) cmd; 

libcopy( addr, (char * )&SOictl .hassa, sizeof ( struct SOictl)); 
ret = libemt(IO_SOC|CMD, &iosb, 0, 0, &SOictl, 0, 0, dev); 
switch ( cmd ){ 
case SIOCRCVOOB : 

"'addr = "(char *)&SOictl .hassa; 
break; 
SIOCGLINGER 



case 
case 
case 



SIOCGKEEP 
SIOCATMARK 
case SIOCGPGRP 
"(short "" 
break; 
default : 

break; 

return ( ret ); 



)addr = SOictl .hassa; 
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1 

2 /* 

3 " filename: xsoread.c 

4 */ 
5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "libhdr.c" 
9 

10 

11 int xsoread( s, buf, len) 

12 int s; 

13 char "^buf; 

14 int len; 

15 { 

16 int ret, i; 

17 struct iosb iosb; 
18 

19 ret = libemt(IO_XFR|IX_RDS, &iosb, buf, len, 0, 0, 0, s); 

20 if (ret==0) 

21 ret = iosb . nread; 

22 return(ret); 

23 } 



Apr 30 21:33 1986 sowrite.c Page 1 



1 

2 /* 

3 * filename: XSOWRITE.C 

4 */ 
5 

6 #include <xstdio.h> 

7 #include <xerrno.h> 

8 #include "libhdr.c" 
9 

10 

11 int xsowrite ( s, msg, len ) 

12 int s; 

13 char *msg; 

14 int len; 

15 { 

16 int ret, i; 

17 struct iosb iosb; 
18 

19 ret = libemt(lO_XFR|lX_WRS, &iosb, msg, len, 0, 0, 0, s); 

20 if ( ret==0 ) 

21 ret = iosb . nread; 

22 return(ret); 

23 } 
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1 /* 

2 @(#)xaecess.c 1.4 3/29/85 
3 

4 RSX version of routine to check access rights. 

5 */ 
6 

7 #include <xspecial.h> 

8 #include <xerrno.h> 
9 

10 

11 

12 xaccess( name, special, mode ) 

13 

14 char *name; 

15 int special; 

16 int mode; 

17 { 

18 register int rval ; 

19 char buf[ MXNAMELEN + 1 ]; 
20 

21 /* 

22 modify name (if necessary) for special meanings 

23 */ 

24 rval = xmodname( &name, special, buf, sizeof( buf ) ); 

25 if ( rval < ) 

26 return( rval ); 

27 if( mode == 0x0 ) 

28 { 

29 /"' check file exist or not */ 

30 rval = xdopen(name,XFREAD,FILE_NAME) ; 

31 if(rval >= 0){ /* check for success */ 

32 xclose(rval) ; 

33 rval = 0; 

34 } 

35 else { 

36 /- fail to open , ie file does not exist */ 

37 rval = rval -512; 

38 } 

39 } 

40 else { 

41 /- rval = acces s (name, mode ) ; 
42 

43 to be implement 

44 

45 Not used by FTP 

46 */ 

47 rval = XSYSERR; 

48 } 

49 return( rval ); 

50 } 
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1 /* 

2 * 

3 FILE_NAME: XCHDIR.C 

4 */ 
5 

6 #include <xgenlib.h> 

7 #include <xspecial.h> 

8 #include <xpwd.h> 

9 #include <xerrno.h> 
10 

11 #define EXEFN 010001 
12 

13 extern long radix(); 

14 extern struct passwd *pw; 

15 extern char *csiblk; 

16 xchdir(name, special) 

17 char "name; /* name of uic to be modified */ 

18 int special; /* flag for special files */ 

19 { 
20 

21 char *uic; 

22 int rval = 0; 
23 

24 switch ( special ) { 
25 

26 case FILE_NAME: 

27 uic = name; 

28 break; 

29 case CURRENT_DIR: 

30 return(O); 
31 

32 case HOME_DIR: 

33 xstrcpy(pw->cur_dev,pw->log_dev) ; 

34 xstrcpy(pw->cur_uic ,pw->login_uic) ; 

35 return(O); 
36 

37 default: 

38 

39 return(XEINVAL); 

40 

41 } 

42 rval = parse(uic,xstrlen(uic) ) ; 

43 if(rvaKO) 

44 return(XENOTDIR); 

45 if(csiblk[C_STAT] & CS_NMF) 

46 return(XENOTDIR); 

47 if(csiblk[C_STAT] & CS_DVF){ 

48 xbcopy(*(int *)(csiblk+C_DEVD+2) ,pw->cur_dev,*(int *)(csiblk+C DEVD)); 

49 pw->cur_dev[*(int *)(csiblk + C_DEVD)] = f \0'; 

50 } 

51 if(csiblk[C_STAT] & CS_DIF){ 

52 uic = (char *)( *(int *)(csiblk + CDIRD + 2 )); 

53 rval = val_uic(uic) ; 

54 if(rval >=~ 0) 

55 xstrcpy(pw->cur uic, uic); 

56 } 
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57 return(rval) ; 

58 

59 } 

60 

61 

62 val_uic(uic) 

63 char *uic; 

64 { 

65 int rval; 

66 if(*uic++ !='[') 

67 return(XENOTDIR); 

68 rval = group(&uic); 

69 if (rval < 0) 

70 return(rval ) ; 

71 i£(*uic++ != ' ,') 

72 return(XENOTDIR); 

73 rval = group(&uic); 

74 if(rval < 0) 

75 return(rval ) ; 

76 if(*uic != ']') 

77 return(XENOTDIR); 

78 return(O); 

79 } 

80 group(s) 

81 char **s; 

82 { 

83 int i; 

84 char *p = *s ; 
85 

86 for(i=0;i<3;i++,p++) 

87 if( isdigit(*p)) 

88 i£(*p > 067) /* octal digit */ 

89 { 

90 * s = p; 

91 return(XENOTDIR); 

92 } 

93 else 

94 continue; 

95 else 

96 break; 

97 *s = p; 

98 return(O); 

99 } 
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1 /* 

2 @(#)xchown.c 1.4 3/29/85 
3 

4 Xchown for RSX. 

5 */ 

6 #include <xspecial.h> 

7 #include <rsxos.h> 

8 #include <xpwd.h> 
9 

10 extern struct passwd *pw; 
11 

12 xchown( name, special ) 

13 char *name; 

14 int special; 

15 { 

16 char buf [MXNAMELEN +l]; 

17 int rval; 

18 struct pr { 

19 char sy[5]; 

20 char ow[5]; 

21 char gr[5]; 

22 char wo[5]; 

23 } pr; 

24 /* 

25 char cmdlin[CMDSIZE] ; 
26 

27 rval = xmodname( &name, special, buf, sizeof(buf) ); 

28 if( rval < ) 

29 return( rval ); 

30 mkcmd(cmdlin, M PIP ",name,'7NM/PR", 

31 M /SY:",getown(pr.sy,pw->lgn_prv&017), 

32 "/OW:",getown(pr.ow,pw->lgn_prv&0360), 

33 "/GR : " , getown( pr . gr , pw->lgn_prv&07400 ) , 

34 M /WO : " , get own( pr . wo , pw->lgn_prv&0 1 70000 ) , 

35 "/F0",0); 

36 mkcmd(cmdlin,"PIP n ,name,"/PR/NM/FO",0) ; 

37 return(cmdcalKcmdlin)) ; 

38 */ 

39 return(O); 

40 } 
41 

42 /* 

43 char * 

44 getown(s,v) 

45 char *s ; 

46 int v; 

47 { 

48 if(v & 01) 

49 -S++ = 'R* ; 

50 if(v & 02) 

51 *s++ = 'W 1 ; 

52 if(v & 04) 

53 -s++ = 'E 1 ; 

54 if(v & 010) 

55 *s++ = 'D 1 ; 

56 *s = '\0»; 
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57 

58 return(s); 

59 } 

60 */ 
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1 /* 

2 VAX %G% 
3 

4 Function to use for all RSX low level close routines. 

5 */ 
6 

7 #include <rsxos.h> 

8 ^include <xstdio.h> 

9 #include <xspecial.h> 
10 #include <fcs.h> 

11 

12 extern struct _rcb _rcb[]; 

13 xdclose( sysid ) 

14 register struct _rcb *sysid; 

15 { 
16 

17 register int bytes; 

18 i£( sysid->flags & RFREE ) 

19 return 1; 

20 sysid->flags &= -DBLBUF; 

21 if ( sysid->mode & XFCREAT | | sysid->mode & XFAPPEND ) { 

22 bytes = sysid->blef t ; 

23 switch (bytes) { 

24 case 512: 

25 bytes = 0; 

26 break; 

27 case 0: 

28 putblk(sysid); 

29 break; 

30 default: 

31 putblk(sysid); 

32 bytes = 512 - bytes; 

33 bytes & 01 ? ++bytes : bytes; 

34 break; 

35 } 

36 _wmrec(sysid->fdb, sysid->rec. rsize, bytes) ; 

37 /* Write max rec & first free byte */ 

38 xfree( sysid->rptr ); /* free record */ 

39 } 

40 _close(sysid->fdb); /* call CLOSE$ */ 

41 xfree( sysid->bptr ); /* free block buffer */ 

42 xfree(sysid->fdb); /* free FDB */ 

43 dassign( sysid->rlun ); /* mark LUN as free */ 

44 sysid->flags = RFREE; /* mark _RCB as free */ 
45 

46 } 
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1 /* 

2 @(#)xdir.c 1.4 3/29/85 
3 

4 Xdir(3X) for RSX - make a directory, remove a directory, move a file, 

5 */ 

6 #include <xspecial.h> 

7 #include <xgenlib.h> 

8 #include <xpwd.h> 

9 extern mkcmdO; 

10 extern long radix(); 

11 extern char "csiblk; 

12 extern struct passwd *pw; 

13 #define EXEFN 010000 
14 

15 xmkdir (what, special ) 

16 char *what; 

17 int special; 

18 { 

19 return(XEOPNOTSUPP); 

20 /* 

21 char buf[ MXNAMELEN + 1 ]; 

22 char cmdlin[CMDSIZE] ; 

23 int rval; 
24 

25 rval = xmodname( &what, special, buf, sizeof( buf ) ); 

26 if( rval < ) 

27 return(XENOTDIR ); 

28 if(!(csiblk[C_STAT] & CS_DVF)) 

29 return(rval - 512); 

30 if(!(csiblk[c_STAT] & CS_DIF)) 

31 return(XENOTDIR); 

32 if(csiblk[C_STAT] & CS_NMF) 

33 return(XENOTDIR); 

34 if((rval = val_uic( *(int *)(csiblk + C_DIRD +2))) < 0) 

35 return(rval ) ; 

36 mkcmd(cmdlin, ,f UFD ", what, ); 

37 return(cmdcalKcmdlin) ) ; 

38 */ 

39 } 
40 

41 xrmdir (what, special ) 

42 char *what ; 

43 int special; 

44 { 

45 char buf[ MXNAMELEN + 1 ]; 

46 int rval; 

47 char cmdlin[CMDSIZE] ; 

48 char uic[UICSIZE] ; 

49 char ' v puic= uic; 

50 char dev[6]; 

51 char ''cuic; 
52 

53 rval = xmodname( &what, special, buf, sizeof( buf ) ); 

54 if( rval < ) 

55 return(XENOENT); 

56 if((csiblk[C STAT] & CS NMF) || (!(csiblk[C STAT] & CS DIF)) ) 
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57 return(XENOTDIR); 

58 if(csiblk[C_STAT] & CS_DVF){ 

59 xbcopy(*(int *)(csiblk + C_DEVD +2 ),dev, *(int *)(csiblk + C_DEVD)); 

60 dev[*(int *)(csiblk + CDEVD)] = '\0'; 

61 } 

62 else { 

63 xstrcpy(dev,pw->cur_dev) ; 

64 } 

65 cuic = (char *)( *(int *)(csiblk + C_DIRD +2)); 

66 while ( *cuic >= 0) 

67 { 

68 if( isdigit(*cuic) | | ( *cuic == 0) ) 

69 *puic++ = "''cuic; 

70 cuic++; 

71 } 

72 mkcmd(cmdlin, M PIP ",dev,": [0,0]",uic,".DIR;*/DE/NM",0) ; 

73 retum(cmdcall(cmdlin)) ; 

74 } 
75 

76 xrename (from, f romspecial , to, to_special ) 

77 char "from, *to; 

78 int from special, to special; 

79 { 

80 char buf[ MXNAMELEN + 1 ]; 

81 char bu£2[ MXNAMELEN + 1 ]; 

82 char cmdlin[CMDSIZE] ; 

83 int rval; 
84 

85 rval = xmodname( &from, fromspecial , buf, sizeof( buf ) ); 

86 if( rval < ) 

87 return(XENOENT); 

88 rval = xmodname( &to, to_special, buf 2, sizeof( buf 2 ) ); 

89 if( rval < ) 

90 return(XENOENT); 

91 mkcmd(cmdlin,"PIP ", to, "=", from, "/RE/NM", 0); 

92 return.(cmdcall(cmdlin) ) ; 

93 } 
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1 /* 

2 %W% %G% 

3 xdopen(3x) for Rsx. 

4 */ 
5 

6 #include <rsxos.h> 

7 #include <xstdio.h> 

8 #include <xspecial.h> 

9 #include <xerrno.h> 
10 include <fcs.h> 

11 

12 extern xdreadO; 

13 extern xdwriteO; 

14 extern xdcloseO; 

15 extern char *csiblk; 

16 extern struct _rcb rcb[]; 
17 

18 xdopen( name, mod, special ) 
19 

20 char ''"name; 

21 register int mod; 

22 int special; 

23 { 

24 int rval; 

25 int exosfd; 

26 int rmode; 

27 int ioflag; 

28 int rsize; /* file type . if ascii then _rcb[sysid].rec. rsize = 

29 else non-zero. 

30 */ 

31 register struct rcb "'sysid; 

32 register XFILE *file; 

33 char buf [MXNAMELEN + l]; 
34 

35 rval = xmodname( &name, special, buf, sizeof( buf ) ); 

36 if( rval < ) 

37 return( rval ); 

38 /* 

39 Translate mode to Rsx mode and type. 

40 */ 

41 sysid = newrcb(mod); 

42 if((int )sysid < 0) 

43 return (int) sysid; 

44 rmode = xtranmode( mod, &ioflag); 

45 if ( rmode < ) 

46 return( rmode ); 
47 

48 exosfd = xnewodO; /* get a free file descriptor */ 

49 if( exosfd < ) 

50 return( exosfd ); 

51 if( sysid->mode & XFCREAT) 

52 create( sysid->fdb, sysid->rec .rsize) ; 

53 rval = parse(name, xstrlen(name) ) ; 
54 •■' if (rval < 0) 

55 return rval; 

56 rval = open(sysid->fdb, rmode, sysid->rl an ,t sibl k+C DSDS); 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 
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84 
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93 

94 

95 

96 

97 
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99 

100 
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103 

104 

105 

106 
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108 

109 

110 

111 

112 



if(rval < 0) 

return(rval ) ; 
if( mod & XFAPPEND ) 

getlblk(sysid); /* get last block */ 

file = &_xiob[exosfd] ; 
file->_file = exosfd; 
file->_flag |= ioflag; 
f ile->_sys_id = (char *)sysid; 
file->_read = xdread; 
file->_write = xdwrite; 
file->_close = xdclose; 
return ( exosfd ); 
} 

struct _rcb * 
newrcb(mod) 
register int mod; 
{ 

register struct _rcb *sysid = _rcb; 

char *p; 

int i; 

for(i=0; i < _XNFILE; ++i, ++sysid ) { 
if(sysid->flags & RFREE ) 
break; 

} 

if ( i >= _XNFILE) 

return (struct _rcb *) XEMFILE; /* Too many files open */ 

sysid->mode = mod; 

sysid->flags = RUSED; 

sysid->bptr = xmalloc(BLKSIZE) ; 

sysid->fdb = xmalloc(FDBSIZE) ; 

for( p = sysid->fdb; p < sysid->fdb + FDBSIZE ; ++p ) 

*P = 0; 
if( !sysid->bptr || !sysid->fdb ) 

return (struct _rcb *) XENOMEM; 
sysid->bnptr = sysid->bptr; 
if ( mod & XFCREAT | | mod & XFAPPEND ) { 

sysid->bleft = BLKSIZE; 

sysid->rptr = xmalloc(RECSIZE) ; 

if ( mod & XFASCII ) 

sysid->rec .rsize = 0; 

else 

sysid->rec .rsize = 512; 

} 



/* No memory */ 



else { 



} 



sysid->bleft = 0; 
sysid->rptr = 0; 
sysid->rec.rlef t = -1; 



sysid->rnptr = sysid->rptr; 
sysid->rlun = glun(); 
return sysid; 
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113 } 

114 

115 

116 getlblk(sysid) 

117 register struct _rcb *sysid; 

118 { 
119 

120 register char *fdb = sysid->fdb; 

121 int ffby = *((int *) { fdb + F_FFBY )); 
122 

123 sysid->rec.rsize = *((int *) ( fdb + F_RSIZ )); 

124 if( ffby ) { 

125 getblk(sysid) ; 

126 sysid->bnptr += ffby; 

127 sysid->bleft = BLKSIZE - ffby; 

128 — *((long *)( fdb + FBKVB )); 

129 } 

130 } 
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1 /* 

2 %W% %G% 
3 

4 Function to use for all RSX low level read routines. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xspecial.h> 

9 #include <extypes.h> 
10 #include <fcs.h> 

11 

12 extern struct _rcb _rcb[]; 

13 

14 

15 #define endblk(i) (( !i->bleft) ? getblk(i) : 1 ) 

16 

17 xdread( sysid, buf, size ) 

18 register struct _rcb *sysid; 

19 char *bu£; 

20 int size; 

21 { 
22 

23 if( size < 0) 

24 return -1; /* error 

25 if( sysid->flags & REOF ) 

26 return 0; /* eo£ */ 

27 if( sysid->mode & XFASCII ) 

28 return ( _get(sysid, buf, size) ) ; 

29 else 

30 return ( read(sysid,buf ,size) ) ; 
31 

32 } 
33 

34 read(sysid,buf ,size) 

35 register struct _rcb *sysid; 

36 char "buf; 

37 register int size; 

38 { 
39 

40 register int count = 0; 

41 int rval; 
42 

43 while(size — ) { 

44 if(( rval = endblk(sysid)) <= ) 

45 return count ? count : rval; 

46 *buf++ = v 'sysid->bnptr++; 

47 — sysid->blef t ; 

48 ++count; 

49 } 
50 

51 return count; 

52 } 
53 

54 

55 get(sysid,buf , size) 

56 register struct rcb "sysid; 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 
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char v 'buf; 
register int 
{ 



size; 



register int 
int rval; 



count = 0; 



while(size — ) { 

if( !sysid->bleft && ((rval = getblk(sysid)) < 0) ) -i &*** 

return count ? count : rval; J 

if( sysid->rec.rleft <= && ((rval = endrec(sysid) ) < 0) ) 

return count ? count : rval; 
if( sysid->flags & R,EOF ) { /* EOF */ 

*buf = 'W; 

return ++count~; 

if(sysid->flags & REOLN) { ^\. ^ </v J^ 

*buf++ = 'W; &r—— ~ -^_ . t/ ^ 7 ^' 



Jjc^( c 



'"l^rj^Hfas 



sysid->flags &= -REOLN; /* reset */ 

else if( sysid->rec.rleft) { ^vA fy 

*buf++ = *sysid->bnptr++; * ^^ ' ( -& cJVi (j 

— sysid->blef t ; ( 

— sysid->rec.rlef t ; 
} 
else { /* case of zero records */ 

++size; 

continue; 

} 
++count ; 

} 

return count; 



endrec(sysid) 

register struct rcb *sysid; 

{ 

register int rval 



if( sysid->rec.rleft == ) C ^ "^N 
sysid->£lags |= (REOLN |\*tCRFLAG ); ) 

if( (Ushort)sysid->bnptr & 01 ) { " >^X- 

++sysid->bnptr; N ^-— Jfijh- f 

— sysid->blef t ; 



} 






if((rval = endblk(sysid)) <= 0) 

return rval ; 
sysid->rec.rleft-*=^ ? Tint * )sysid->bnptr ; 
sysid->bnptr += 2; /* adjust the pointer */ 

sysid->bleft -= 2; 
return endblk(sysid) ; 



~L 



extern int read(); 
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113 extern int rastdioO; 

114 extern int rwaitO; 

115 

116 getblk(sysid) 

117 register struct _rcb *sysid; 

118 { 

119 register int ret; 
120 

121 ret = dio(sysid, read,rastdio, rwait); 

122 if(ret == 0) 

123 sysid->flags |= REOF; 

124 sysid->bleft = ( ret > ) ? ret : 0; 

125 return ret; 
126 

127 } 
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/* 



3 Function to use for all low level write routines 

4 

5 */ 

6 

7 #include <xstdio.h> 

8 #include <xspecial.h> 

9 #include <extypes.h> 
10 #include <fcs.h> 

11 

12 

13 extern struct _rcb _rcb[ ] ; 

14 

15 xdwrite(sysid, buf, size) 

16 register struct _rcb *sysid; 

17 char * buf; 

18 int size; 

19 { 
20 

21 

22 

23 

24 

25 

26 

27 

28 } 

29 

30 write(sysid, buf, size) 

31 register struct _rcb *sysid; 

32 char * buf; 

33 register int size; \/>*s 

34 { 
35 



/* 



error 



if( size < ) 

return -1; 
if( sysid->mode & XFASCII ) 

return _put(sysid, buf, size); 
else 

return write(sysid, buf, size); 



*/ 






a 




^ 



register int 
int rval; 



\ 



count =0; jf 

while ( size — ) { 

if( !sysid->bleft) { 

if((rval = putblk(sysid)) <= 0) 

return count ? count : rval 
} 
*sysid->bnptr++ = *buf++; 
— sysid->blef t ; 
++count ; 
} 



36 
37 
38 
39 

40 

41 

42 

43 

44 

45 

46 

47 

48 } 

49 

50 

51 _put( sysid, buf, cnt) 

52 register struct _rcb ""sysid; 

53 char "buf; 

54 int cnt; 

55 { 

56 char *nbuf; 



>< 



return count; 



M 



p 



I vf- 



I 




u^ H , r*£ 






1 tn&fy 
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57 register char *wbuf; 

58 int ncnt, went, rval, count = 0, tot = 0; 
59 

60 while(cnt) { 

61 wbuf = buf; 

62 went = cnt; 

63 xlocc( f \n ! , went, wbuf, &ncnt, &nbuf); 

64 if(ncnt) { 

65 /•* found EOL, backtrack to find a '\r', if any */ 
66 

67 if((*buf != '\n') && (nbuf[-l] == '\r')) 

68 count = cnt - ncnt - 1; 

69 else 

70 count = cnt - ncnt: *, * JL ^ ^ ,cw*>l?ofio 

71 ^^^Jprit^tk-J *<* fi^ 7*0, 

72 if ((rval = putrecTsysid, buf, count)) <= 0) 

73 return coant ? count : rval; 
74 

75 cnt = ncnt - 1; 

76 buf = nbuf + 1 ; , , ^ ; fU <^U-t 



77 tot += cnt - ncnt + 1; , db^^b^__- ^ / \^ 

78 } /* end of if (ncnt)... */ y rfsL *~ £K/tuK ^«t 

79 else { /"" if ncnt == 0, i.e. no ' \n* found in buffer */ \ 

80 xbcopy(buf, sysid->rptr, cnt); 6y^ *o \"V 

81 sysid->rnptr += cnt; 

82 if((sysid->rnptr - sysid->rptr) > BLKSIZE) 

83 sysid->rnptr = sysid->rptr + BLKSIZE; 

84 sysid->flags |= KEPT_ASIDE; 

85 tot += cnt; /* the kept aside bytes */ 

86 cnt = 0; 

87 } 

88 } /* end of while(cnt ) . . . */ 

89 return tot; 

90 } 
91 

92 

93 putrec(sysid, buf, size) 

94 register struct rcb *sysid; 

95 register char "buf; 

96 int size; 

97 { 

98 register int kept aside; 

99 int rval; 
100 

101 if((Ushort )sysid->bnptr & 01) { /* if on a byte boundary */ 

102 *sysid->bnptr++ = 0; 

103 — sysid->bleft; 

104 } f ji 

105 if(!sysid->bleft && ((rval = putblk(sysid) ) <= 0)) L>? rf-Jv* 

106 return rval; \A ^^v\»A' If -v vJ! ) 

107 if(sysid->flags & KEPTASIDE) % Xz?~~~ ' ' ' j. ^^4^^ 

108 kept_aside = sysid->rnptr - sysid->rptr; \Js v 

keptaside = 0; < ^yC&^ ^T 

111 ' 

112 "(int " )sysid->bnptr = size + kept aside; 



109 else 

110 
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113 sysid->bnptr += 2; 

114 sysid->bleft -= 2; 
' 115 

116 if(sysid->flags & KEPT_ASIDE) { 

117 sysid->flags &= -KEPTASIDE; 

118 if((rval = _rec(sysid, sysid->rptr, kept_aside)) <= 0) 

119 return rval; 

120 sysid->rnptr = sysid->rptr ; 

121 } 

122 if((rval = _rec(sysid, buf, size)) <= 0) 

123 return rval; 
124 

125 return 1; 

126 

127 } 

128 

129 

130 _rec(sysid, buf, cnt) 

131 register struct rcb *sysid; 

132 char *b u f; 

133 register int cnt; 

134 { 

135 register int leftcnt = 0; 

136 int rval; 
137 

138 if(sysid->bleft < cnt) { 

139 leftcnt = sysid->blef t ; 

140 xbcopy(buf, sysid->bnptr , leftcnt); 

141 if((rval = putblk(sysid) ) <= 0) 

142 return rval; 

143 } 

144 xbcopy(buf + leftcnt, sysid->bnptr , cnt - leftcnt); 

145 sysid->bnptr += cnt - leftcnt; 

146 sysid->bleft -= cnt - leftcnt; 
147 

148 return 1; 

149 } 
150 
151 

152 extern int wastdioO; 

153 extern int write(); 

154 extern int wwait(); 

155 ~~ 
156 

157 putblk(sysid) 

158 register struct _rcb -sysid; 

159 { 
160 

161 sysid->bleft = BLKSIZE; 

162 return dio(sysid, write, wastdio, wwait); 

163 

164 } 
165 

166 xlocc(c, cntl, bufl, acnt2, abuf2) 

167 char c; 

168 register int cntl; 
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169 register char *bufl; 

170 int *acnt2; 



171 


char 


**abuf 2 ; 


172 


{ 




173 




register int i; 


174 




int found = 0; 


175 






176 




for(i = 0; i < cntl; i++) 


177 




if(*bufl++ == c) { 


178 




found++; 


179 




break; 


180 




} 


181 




if (found) { 


182 




*acnt2 = cntl - i; 


183 




*abuf2 = — bufl; 


184 




} 


185 




else 


186 




*acnt2 = 0; /* 


187 


1 





/" char ' c 1 not found */ 
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1 /* 

2 %W% %G% 
3 

4 Unix specific close all EXOS file objects and exit program, 

5 */ 
6 

7 #include <xstdio.h> 
8 

9 xexit( status ) 
10 

11 int status; 

12 { 

13 int i; 
14 

15 for( i = 0; i < XNFILE ; ++i ) 

16 { 

17 xclose( i ); 

18 } 

19 exit( status ); 

20 } 
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1 

.2 /* 

3 %W% %G% 

4 xftpopen(3x) for Rsx. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xspecial.h> 

9 #include <xerrno.h> 

10 #include <fcs.h> 

11 #include <ftp.h>; 
12 

13 extern xdreadO; 

14 extern xdwriteO; 

15 extern xdcloseO; 

16 extern _dread(); 

17 extern dwriteO; 
18 

19 extern int type; 

20 extern struct dblbuf hbuf; 
21 

22 

23 xftpopen( name, mode, special, f tp_attributes ) 

24 

25 char *name; 

26 int mode; 

27 int special; 

28 register struct ftp_attr *f tp_attributes; 

29 { 
30 

31 int rval; 

32 register XFILE *file; 
33 

34 /* 

35 Check that ftp_at tributes are supportted. 

36 */ 

37 if( f tp_attributes ) 

38 { 

39 if( (ftp_attributes->rep_type != RT_ASCII && 

40 ftp_attributes->rep_type != RT_IMAGE ) 

41 ftp_attributes->format != TF_NONPRINT | 

42 ftp_attributes->structure != IS_FILE | | 

43 ftp_attributes->trans_mode != TM_STREAM 

44 ) 

45 return( XEOPNOTSUPP ); 

46 } 

47 if( type == TYPE_A) 

48 mode |= XFASCII; 

49 rval = xdopen(name, mode, special); 

50 if(rval >= ) { 

51 file = &_xiob[rval ] ; 

52 file^>_read = dread; 

53 f ile->_write= dwrite; 

54 if( mode & XFREAD ){ 

55 hbuf.stat[0] = getblk(f ile->_sys_id) ; 

56 } 
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57 hbuf .buffer[0] = ((struct _rcb *) f ile->_sys_id)->bptr ; 

58 } 

59 return rval; 

60 } 
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1 /* 

2 static char sccsld[] = M @(#)xgethbad.c 1.4 3/26/85"; 
3 

4 code to make 4.2 style code, sort of, happy. 

6 

7 #include <arp.h> 

8 

9 extern long xrhostO; 
10 
11 
12 

13 struct hostent * 

14 ghbaddr( addr, size, family ) 

15 /* 

16 gethostbyaddr for C compilers with 8 character identifiers 

17 WARNING 

18 a second call to this routine will destroy the previous result 

19 */ 
20 

21 struct in_addr *addr; 

22 int size, family; 

23 { 

24 static struct hostent hent; 
25 

26 hent.hname = (char *)xraddr( addr->s_addr ); 

27 return( ( struct hostent *)&hent ); 

28 } 
29 
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1 /* 

2 static char sccsld[] = "@(#)xgethbnam.c 1.4 3/26/85"; 
3 

4 code to make 4.2 style code, sort of, happy. 

5 */ 
6 

7 #include <arp.h> 
8 

9 extern long xrhost(); 
10 

11 struct hostent * 

12 ghbname( host ) 

13 /* 

14 gethostbyname for C compilers with 8 character identifiers 

15 WARNING 

16 a second call to this routine will destroy the previous result 

17 */ 
18 

19 char *host; 

20 { 

21 static struct hostent hent; 

22 static struct sckadr in sock; 
23 

24 sock.sin_addr.S_un.S_addr = (long)xrhost( &host ); 

25 if (sock.sinaddr .S_un.S_addr == -1 ) 

26 return( (struct hostent *)XNULL); 

27 hent.haddr = (char *)&sock. sin_addr ; 

28 hent.h_name = host; 

29 return( &hent ); 

30 } 
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1 /* 

2 * FILENAME: XGLOB.C 

3 * 

4 * Xglob for RSX. Expand wild word in input line. 

5 * 

6 */ 
7 

8 #include <xgenlib.h> 

9 ^include <xspecial.h> 
10 

11 #define MAXINSPEC 20 

12 

13 extern xgfataK); 

14 

15 static char **gargv = 0; 

16 static short gargc = 0; 

17 char "globerr = (char *)0; 

18 short gflag = 0; 

19 char *in_stat = (char *) 0; 

20 char *f_stat = (char *) 0; 

21 char "inverstat = (char * )0; 

22 char *f_ver_stat = (char * )0; 

23 int globbing = 0; 
24 

25 /* 

26 * Main root of xglob. 

27 * 

28 */ 
29 

30 char ** 

31 xglob( v ) 

32 register char **v; 

33 { 

34 char **agargv; 
35 

36 /* initialize return parameter */ 

37 gargv = xmalloc(2); 

38 "gargv = (char *)0; 

39 globerr = (char *)0; 

40 globbing = 1; 

41 in_stat = xmalloc(MAXINSPEC) ; 

42 in_ver_stat = xmalloc (MAXINSPEC ) ; 

43 gargc = 0; 

44 while (*v) { 

45 if(wildchar(*v)){ 

46 agargv = glob(*v++); 

47 } 

48 else { 

49 agargv = xmalloc(xstrlen(*v)+l +4); 

50 if (agargv == (char *)0) 

51 xgfatal( M Out of Memory"); 

52 v *agargv = agargv + 2; 

53 agargv[l] = (char *)0; 

54 xstrcpy(agargv + 2, *v++); 

55 } 

56 gargv = copyblk( gargv, agargv) ; 
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57 } 

58 xfree(in_stat ) ; 

59 xf ree(in_ver_stat ) ; 

60 globbing = 0; 

61 return (gargv) ; 
62 

63 } 

64 

65 

66 char ** 

67 glob(name) 

68 char ""name; 

69 { 

70 char buf[400]; 

71 char "line = 0; 

72 char template[l6] ; 

73 char list_name[27] ; 

74 char *bufp = buf; 

75 int len; 

76 int rval ; 

77 int sys_id; 

78 XFILE *file; 

79 int argc; 

80 char **argv = (char **)0; 
81 

82 xs trcpy( template, SCRATCHFILE); 

83 /"* xmktemp( template ) ; */ 

84 rval = _ls( template, name, LS_ARG); 

85 if(rval < 0){ 

86 globerr = " glob failed"; 

87 return(O); 

88 } 

89 sys_id = opentemp(template) ; 

90 if(sys_id >= 0){ 

91 file = xodopen(sys_id,"r") ; 

92 } 

93 if(sys_id < | | file < ( XFILE * ) ) { 

94 globerr = " Can't open file for globbing"; 

95 return(O); 

96 } 

97 /* 

98 * initialize buff, which is used to filled with list of names 

99 */ 

100 

101 f_stat = in_stat - 1; /* used in nam_list */ 

102 f ver_stat = in ver stat - 1; /* used in nam_list */ 
103 

104 forCbuf p=(char *)buf; bufp<(char "')buf + sizeof buf;) 

105 *bufp++ = 'XO 1 ; 

106 bufp = buf; 

107 while(rval = xogets(list_name, sizeof (list_name) , file) > 0) { 

108 if ( !nam_list(list_name) ) 

109 continue; /* discarding temp name created by glob */ 

110 remtrail(list name); 

111 len = xstrlen(list_name) + 1; 

112 if((buf + sizeof(buf) - bufp) > len) 
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113 { 

114 xstrcpy(buf p,list_name) ; 

115 bufp += len; 

116 "(bufp -1) = ' '; /» name separator */ 

117 } 

118 else 

119 { 

120 argv = copyblk(argv, xmkarglist(buf , &argc)); 

121 for(bufp=(char *)buf; bufp<(char *)buf + sizeof buf;) 

122 *bufp++ = '\0'; 

123 bufp = buf; 

124 } 

125 } 

126 if( bufp > buf) 

127 argv= copyblk(argv, xmkarglist(buf , &argc)); 

128 xclose(xf ileno(f ile)); 

129 rval = xunlink(template,FILE_NAME) ; 

130 if(rval < 0) { 

131 globerr = ,f system error ■ — can't delete file "; 

132 return(O); 

133 } 
134 

135 

136 return(argv) ; 

137 

138 } 

139 

140 char ** 

141 copyblk(vl, v2) 

142 char **vl; 

143 char **v2; 

144 { 

145 register char **nv ; 

146 int i; 

147 i = (blklen(vl) + 1) * sizeof (char **) + blkslen(vl) 

148 + (blklen(v2) + 1) * sizeof (char **) + blkslen(v2) 



> 



149 

150 nv = xmalloc(i); 

151 if(nv == (char *)0) 

152 xgfatalC'Out of Memory 11 ); 

153 return(blkcpy(nv, vl , v2)); 
154 

155 } 
156 

157 char ** 

158 blkcpy(v, vl , v2) 

159 char **v, **vl, ""V2; 

160 { 

161 register char ~ ; ""av = v; 

162 char '""ovl = vl ; 

163 char **ov2 = v2 ; 

164 char "stringp; 
165 

166 if(vl){ 

167 while(-vl++) 

168 ++av; 
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169 


1 


170 


if(v2){ 


171 


while(*v2++) 


172 


++av; 


173 


} 


174 


stringp = (char *)++av; 


175 


av = v; 


176 


vl = ovl; 


177 


v2 = ov2; 


178 




179 


if(vl){ 


180 


while(*vl){ 


181 


*av++ = stringp; 


182 


xstrcpy( stringp, *vl); 


183 


stringp += xstrlen(*vl++) + 1; 


184 


} 


185 


1 


186 




187 


if(v2){ 


188 


while(*v2){ 


189 


*av++ = stringp; 


190 


xstrcpy( stringp, *v2); 


191 


stringp += xstrlen(*v2++) + 1; 


192 


} 


193 


1 


194 




195 


*av = (char *)0; 


196 


if(ovl) 


197 


xf ree(ovl) ; 


198 


if(ov2) 


199 


xf ree(ov2) ; 


200 


return(v) ; 


201 


1 


202 




203 


wildchar(p) 


204 


char "p; 


205 


{ 


206 




207 


while(*p){ 


208 


if(( * p == '*»)|| (* p == •%•)) 


209 


return(l) ; 


210 


p++; 


211 


} 


212 


return(O) ; 


213 


1 


214 




215 




216 


xgfatal(string) 


217 


char ^'string; 


218 


{ 


219 


xoprintf (xstderr, "xglob:%s\n", string); 


220 


xexit(l) ; 


221 


} 


222 




223 




224 


blklen(av) 
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225 register char **av; 

226 { 

227 register int i = 0; 
228 

229 if(av != XNULL) 

230 while(*av++) 

231 i++; 

232 return(i); 
233 

234 } 
235 

236 static 

237 blkslen(argp) 

238 register char **argp; 

239 { 

240 int total = 0; 
241 

242 if(argp != XNULL) 

243 while(*argp) 

244 { 

245 total += xstrlen(*argp++) + 1; 

246 } 

247 return(total) ; 

248 } 
249 
250 

251 remtrail(s) 

252 char *s; 

253 { 

254 char "Start; 

255 start = s; 

256 s = s + xstrlen(s) - 1; 

257 while ((s >= start) && ((*s == f \r») || (*s == 'V))) 

258 *s— = '\0'; 

259 } 
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1 /* 
2 

3 RSX implementation of xinit_env(3X) . 

4 */ 

5 #include <xpwd.h> 

6 #include <xgenlib.h> 

7 #include <xctype.h> 
8 

9 #define upper(c) (isupper(c)) 1 c : _toupper(c) 

10 #define EFN 1 

11 #define SRDA 01153 

12 #de£ine TASK_EFN 2 
13 

14 extern long radixO; 

15 extern ast recv(); 

16 char msgeET = " "» 

17 extern struct passwd *pw; 

18 static int buf[l6] = {0}; 
19 

20 xinit_env( name, password, account ) 
21 

22 char "name; /* loggin name */ 

23 char *pas sword; /* password */ 

24 char ^''account; /* login uic */ 

25 { 

26 int rval; 

27 int dirdes[2]; 

28 long task.; 
29 

30 if ( !name ) 

31 return( ); 

32 emt(SRDA,ast_recv); 

33 emt(CLEF,TASK_EFN); 

34 emt(GTSK,buf ); /* get task info for type of system this demon is running on */ 
35 

36 /* validata user's login information */ 

37 rval = login(name, password, account ) ; 

38 if( rval < ) 

39 return(rval - 512); 

40 dirdes[0] = xstrlen(pw->login_uic) ; 

41 dirdestl] = (int ) pw->login_uic; 

42 ascpp(dirdes,msge); 

43 emt(CLEF,TASK_EFN); 
44 

45 if(buf[l4] ==6) /* is it an RSX-11M-PLUS system */ 

46 task = radixC'DEMTO "); 

47 else /* it is an RSX-11M system */ 

48 task = radix("...DEM"); 
49 

50 emt(SDAT,task,msge,0); /" 

51 * send login uic to 

52 * ...dem , which updates 

53 * this task uic as user's 

54 * login uic 

55 "/ 

56 emt(WTSE,TASK EFN); 
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57 emt(SRDA,0); 
58 

59 return( 1 ); 

60 } 
61 

62 login(name, password, account ) 

63 char "name; 

64 char *pas sword; 

65 char "account; 

66 { 

67 int i= -1, cc = 0; 

68 long tsk; 

69 int asefn = 010001; /* EFN = 1 */ 

70 int rval; 

71 int esb[8]; 
72 

73 i£(bu£[l4] == 6) /* if an RSX-11M-PLUS system */ 

74 tsk = radix( M LGNT0 "); 

75 else 

76 tsk = radix( M ...LGN"); 
77 

78 while( name[++i] && cc < 14 ){ 

79 if(name[i] == '/') 

80 break; 

81 msge[cc++] = upper (name[i] ) ; 

82 } 

83 while(cc < 14) 

84 msge[cc++] = ' ' > /* padded the name whith blanks */ 

85 msge[cc++] = '*' ; /* separator between name & account */ 

86 if( name[i] == '/' && (name[i+l]) ){ 

87 while(name[++i] && cc < 26) 

88 msge[cc++] = upper (name[i] ) ; 

89 } 

90 else { 

91 i = -1; 

92 while( password[++i] && cc < 26 ) 

93 msge[cc++] = upper(password[i] ) ; 

94 } 

95 while(cc < 26) 

96 msge[cc++] = ' ' ; 

97 emt(SDAT,tsk,msge,0) ; /* send pkt to ...lgn task */ 

98 emt(USTP,tsk); /-unstop ...lgn -7 

99 emt(WTSE,TASK_EFN); /* wait for receive pkt from ...lgn */ 

100 rval = *( (int ")(msge +4)); /* return status */ 

101 if(rval == 0) { 

102 xstrcpy(pw->cur_uic, msge+6); 

103 xstrcpy(pw->login_uic, msge+6); 

104 xstrcpy(pw->log_dev, msge+16); 

105 xstrcpy(pw->cur_dev, msge+16); 

106 } 
107 

108 return(rval) ; 

109 

110 } 
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1 #include <xgenlib.h> 

2 #include <xspecial.h> 

3 #include <xpwd.h> 

4 extern long radixO; 

5 extern xreadO; 

6 extern xdreadO; 

7 extern char *csiblk; 

8 extern struct passwd *pw; 

9 extern char *f_stat; 

10 extern char *in_stat; 

11 extern char *f_ver_stat ; 

12 extern char *in_ver_stat ; 

13 extern int globbing; 
14 

15 #define EXEFN 010000 
16 

17 static char brief [] = "/BR"; 

18 static char full[] = "/FU"; 

19 char hdir[27] = {0}; 
20 

21 xls(od, name, code) 

22 int od; /* io object for network data connection */ 

23 char -name; /* name of uic to list, null == current */ 

24 int code; 

25 { 

26 register XFILE -file; 

27 char template[ 16] ; 

28 int rval; 

29 int sys_id; 

30 int d; 
31 

32 if (od<0 | | od >= _XNFILE) 

33 return(XEBADF); 

34 if(name && *name && ((code == LS) || (code == LS_ARG))){ 

35 rval = checkname(name) ; 

36 if(rval < 0) 

37 return(rval ) ; 
38 

39 

40 /"' check name is dir or simple name */ 

41 if(rval) { 

42 d = xaccess(name,FILE_NAME,0); /* check file exists or not */ 

43 if(d < 0){ 

44 return(XENOENT); 

45 } 

46 d = xoprintf (&_xiob[od] ,"%s\n",name); 

47 if(d < 0){ 

48 xperror(d,"on output"); 

49 } 

50 return(d); 

51 } 

52 } 

53 xstrcpy( template, SCRATCHFILE); 

54 /" xmktemp( template ) ; */ 

55 rval = _ls(template, name, code); 

56 if(rval~< 0) 
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57 return(rval) ; 

58 sys_id = opentemp(template) ; 

59 if(sys_id < 0) 

60 return(sys_id) ; 

61 file = xodopen(sys_id,"r") ; 

62 if(file < (XFILE *)0) 

63 return( ( int )file); 

64 xpass(file, &_xiob[od]); 

65 xclose(xf ileno(f lie) ) ; 

66 rval= xunlink( template, FILE_NAME); 

67 return(rval ) ; 
68 

69 } 

70 

71 xpass( inod, outod ) 

72 

73 XFILE *inod; /* input EXOS io object */ 

74 XFILE -'outod; /* output EXOS io object */ 

75 { 

76 int c; 

77 int d; 

78 char name[512]; 
79 

80 while(c = xogets(name,sizeof (name) ,inod) > 0){ 

81 i£( !nam_list(name) ) 

82 continue; 

83 xoprintf (outod, "%s", name) ; 

84 xfflush(outod); 

85 } 

86 if(c < 0) { 

87 xperror(c, "on input"); 

88 return(c); 

89 } 

90 } 
91 

92 int 

93 _ls( template, name, code) 

94 char ^template; 

95 char *name; 

96 int code; 

97 { 

98 char "swtch; 

99 char cmdlin[CMDSIZE] ; 

100 long tsk; 

101 int rval ; 

102 char ""cur_name; /* use to replace user's if supplied or 

103 pointing to null. */ 

104 char inspec[CMDSIZE] ; 

105 char "inp = inspec; 

106 char "f_stat = in_stat; 

107 char ""f_ver_stat = in_ver_stat; 

108 char stat = '\0'; 
109 

110 switch (code){ 

111 case LS: 

112 case LS ARG: 
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113 swtch = brief; 

114 break; 

115 case LSLONG: 

116 case LSLONG_ARG: 

117 swtch = full; 

118 break; 

119 default: 

120 return(XEINVAL); 

121 } 
122 

123 if( name == ( char *)o) 

124 cur_name = ( char *)&name; 

125 else 

126 cur_name = name; 
127 

128 /" create command to produce list */ 

129 for( ;; ){ 

130 rval = parse(cur_name,xstrlen(cur_name)) ; 

131 if(rval < 0) 

132 return(rval) ; 

133 if(globbing){ 

134 if((f_stat > in_stat) && 

135 ( ((_stat & CS_DVF) && ! (csiblk[C_STAT] & CS_DVF)) || 

136 ((_stat & CS_DIF) && ! (csiblk[C_STAT] & CS_DIF)) 

137 )) 

138 return(-l); /* command syntax error */ 

139 _stat |= csiblk[C_STAT]; 

140 *f_stat++ = csiblk[C_STAT]; 
141 

142 "f_ver_stat = 0; /* assume version is not specified */ 

143 if(csiblk[C_STAT] & CS_NMF){ 

144 int i; 

145 for(i=0;i < *((int * Xcsiblk + C_FILD) ) ;++i ) 

146 if(*((char * )(*(int *)(csiblk + C_FILD + 2)) + i) == f ; ' ) { 

147 *f_ver_stat = 1; /* version is indeed specified! */ 

148 break; 

149 } 

150 } 

151 f_ver_stat++; 

152 } 

153 if ((rval = mkname(inp)) == ) 

154 break; /* no more in spec */ 

155 inp = inspec + xstrlen(inspec) ; 

156 *inp++ = ' , f ; 

157 cur_name += rval + 1; 

158 } 
159 

160 mkcmd(cmdlin, "PIP ", pw->log dev, ":", pw->login_uic , template, "=", inspec, 

161 _ swtch, "/NM", 0); 

162 return(cmdcall(cmdlin) ) ; 

163 } 
164 

165 checkname(name) 

166 char *name; /* IN-OUT */ 

167 { 

168 int rval; 



May 19 16:54 1986 xls.c Page 4 



169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 



} 



rval = parse(name,xstrlen(name)) ; 
if(rval < 0) 

return(rval -512); 
rval = 0; 
if(csiblk[C_STAT] & CS_NMF) 

rval =1; 
return(rval) ; 



opentemp(file) 

char *£ile; 

{ 

/* 

char name[27]; 



*/ 



1 



xs trcpy(name , pw->login_uic ) ; 

xs treat (name, file) ; 

return(xdopen(name, XFREAD|XFASCII , H0ME_DIR)); 

return(xdopen(file, XFREAD|XFASCII , HM_RELATIVE) ) ; 



naml i s t ( name ) 
char "name; 

{ 
char buf[27]; 
char >v cpl, *cp2; 



if (xstrlen(name) > 1) 

if((name[l] == 'i') || (name[2] == 'i')){ 
if (globbing){ 

f_stat++; f ver_stat++; 

hdir[0] = '\0'; 

if(!(*f_stat & (CS_DVF | CS_DIF))) 

return(O) ; 
cpl = xstrrchr(name, ' ') + 1; 
cp2 = xstrrchr(name, ':') + 1; 
if(*f_stat & CSDVF) 

xstrncat(hdir, cpl, cp2 - cpl); 
if(*f_stat & CS_DIF) 

xstrcat(hdir, cp2); 
remtrail(hdir) ; 

} 
return(O) ; 

if(( name[0] == '\14') || (name[0] == '\n') 

| | (name[0] == '\r')) 
return(O) ; 
if( (nametO] == » ') I I 
(name[l] == '-') II 
(name[2] == '-') || 
(xstrncmp(name, "Total of ",9) == 0) 

) 

return(O) ; 
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225 if(xstrncmp(name, M .;",2) == 0) 

226 return(O); 
227 

228 if(globbing && ! (*f_ver_stat )) 

229 remver(name) ; 
230 

231 if(globbing && xstrlen(hdir ) ){ 

232 xstrcpy(buf ,hdir) ; 

233 xstrcat(buf, name); 

234 xstrcpy(name, bu£); 

235 } 

236 return(l); 

237 } 
238 
239 

240 remver(s) 

241 char *s; 

242 { 

243 s = xstrchr(s , ' ; ' ) ; 

244 while("s) 

245 *s++ = '\0'; 

246 } 



Apr 30 21:34 1986 xmktemp.c Page 1 



1 #include <xgenlib.h> 

2 #i nclu.de <xpwd.h> 

3 extern struct passwd *pw; 

4 char * 

5 xmktemp( template) 

6 char "template; 

7 { 

8 return(l); 

9 } 
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1 /* 
2 

3 Rsx routine to form file names relative to users logoin uic, current 

4 uic, etc. 

5 This routine belongs in Xoslib, but is here to keep the linker happy. 

6 */ 

7 #include <xspecial.h> 

8 #include <xgenlib.h> 

9 #include <xpwd.h> 
10 

11 /* 

12 for now . . . 

13 */ 

14 #define xsprintf sprintf 

15 extern struct passwd *pw; 
16 

17 xmodname ( name, special, buf, sz_buf ) 
18 

19 char "" v name; 

20 int special; 

21 char "buf; 

22 int szbuf; 

23 { 

24 int rval; 

25 char *pt = buf; 
26 

27 switch( special ) { 

28 case FILE_NAME: 

29 rval = parse(*name,xstrlen(*name)) ; 

30 if (rval < 0) 

31 return(rval); /* error while parsing */ 

32 mkname(pt); 

33 break; 

34 case CURRENT_DIR: 

35 xstrcpy(buf, pw->cur_uic) ; 

36 break; 

37 case HM_RELATIVE : 

38 case HOMEDIR: 

39 xstrcpy(buf, pw->log_dev) ; 

40 xstrcat(buf, ":"); 

41 xstrcat(buf, pw->login_uic) ; 

42 if (special == HM_RELATIVE ) 

43 xs treat (buf, "name); 

44 break; 

45 case CD_RELATIVE: 

46 xstrcpy(buf, pw->cur_uic) ; 

47 xstrcat(buf, ""name); 

48 break; 

49 default: 

50 return( XEINVAL ); 

51 } 

52 "'name = pt; 

53 return( ); 

54 } 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 



^include <xgenlib.h> 
#include <xspecial.h> 
#include <xpwd.h> 
extern struct passwd *pw; 

xpwd(buf, buflen, func_code) 

char "buf; /* buffer to hold name of current uic */ 

int buflen; /* length of buffer */ 

int func_code; /« consistency check */ 

{ 

if(func_code != PWD) 
return(XEINVAL); 



xs trncpy( buf ,pw->cur_dev, buflen); 
xstrncat (buf,":", buflen); 
xstrncat(buf , pw->cur_uic, buflen 
buf [buflen] = '\0'; 
return(O) ; 



- xstrlen(pw->cur dev) - 1 ); 



} 
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1 /* 

2 %W% %G% 

3 convert a RSX file descriptor to an EXOS io object 

4 - useful in debugging and development. 

5 */ 
6 

7 #include <xstdio.h> 

8 

9 extern xdreadO; 

10 extern xdwriteO; 

11 extern xdcloseO; 

12 extern xnofuncO; 
13 

14 xrxtex( rsxfd ) 

15 int rsxfd; 

16 { 

17 int rval; 

18 int exosfd; 

19 register XFILE -file; 
20 

21 rval = rsxfd; 

22 if( rval < ) 

23 return ( rval - 512); 

24 exosfd = xnewodO; /* get a free file descriptor */ 

25 if( exosfd < ) 

26 return( exosfd ); 

27 file = &_xiob[ exosfd ]; 

28 file->_file = exosfd; 

29 f ile-> f lag |= _XI0RW | XPrimary ; 

30 f ile->_sys_id = (char *)rsxfd; 

31 file->_read = xdread; 

32 file->_write = xdwrite; 

33 file->_ioctl = xnofunc; 

34 file->_close = xdclose; 

35 return( exosfd ); 

36 } 
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1 /* 

2 * FILENAME XSELECT.C 

3 * 

4 */ 
5 

6 #include <xgenlib.h> 

7 #include "libhdr.c" 
8 

9 #define SELECT_EFN 4 

10 #define READ 

11 #define WRITE 1 
12 

13 extern int astrselect( ) ; 



14 extern int _astwselect( ) ; 
15 

16 long rmask = (long) 0; 

17 long wmask = (long) 0; 

18 long *prmask = (long *) 0; 

19 long "pwmask = (long *) 0; 

20 int nfounds = 0; 

21 struct iosb iosbselect = {0}; 

22 unsigned char rsavxiob[_XNFILE] = {0}; 

23 unsigned char wsavxiob[_XNFILE] = {0}; 
24 

25 xselect(nods ,readods ,writeods, timeout ) 

26 int nods; 

27 long *readods; 

28 long *writeods; 

29 long timeout; 

30 { 

31 int i,ch no; 

32 int tick = (int )( timeout / 20L); 
33 

34 if( Ireadods && !writeods) 

35 return(O); 

36 rmask = wmask = (long ) 0; 

37 emt(CLEF, SELECT_EFN); /* make sure efn is clear »/ 

38 emt(DSAR); /* disable ast recoginition */ 
39 

40 if(readods) 

41 £or( i = 0; i < nods ; ++i){ 

42 if (getod(readods , i ) ) { 

43 ch_no = (int ) xiob[ i ] ._sys_id; 

44 rsavxiob[ch no! = i; 

45 emt(QIO,IO_ACS|SA_SEL,SOLUN,0,&iosb_select, 

46 _astr select ,0,0,0, READ, 0,ch_no); 

47 } 

48 } 

49 if(writeods) 

50 for( i =0; i < nods; ++i){ 

51 if (getod(writeods ,i ) ) { 

52 ch_no = (int ) xiob[ i] ,_sys_id; 

53 wsavxiob[ch_noJ = i; 

54 emt(QIO,IO_ACS|SA_SEL,SOLUN,0,&iosb_select, 

55 _as twselect, 0,0,0, WRITE, 0,ch_no); 

56 } 
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57 } 

58 

59 /" initialize mask and return values */ 

60 

61 rmask = (readods ? *readods : 0); 

62 wmask = (writeods ? *writeods : 0); 

63 prmask = readods; 

64 pwmask = writeods; 

65 ""prmask = ^pwmask = (long ) 0; 

66 nfounds = 0; 
67 

68 /" specify timeout efn */ 

69 

70 emt(MRKT,SELECT_EFN,(int )tick,l,0); 

71 

72 emt(ENAR); /* enable ast recoginition "'"/ 

73 emt(WTSE,SELECT_EFN); /* wait for eithr timeout or at least one ast-7 

74 emt(DSAR); /* disable ast recoginition */ 

75 unselect (nods, readods, writeods ); /* unselect unready od's */ 

76 rmask = wmask = (long )0; /* now on ast must be ignore */ 

77 emt(ENAR); /* enable ast recoginition */ 

78 return(nfounds) ; 
79 

80 

81 } 
82 

83 /* 

84 * Ast service routine. 

85 */ 
86 

87 astrselect(iosb) 

88 struct iosb "iosb; 

89 { 

90 int ch_no = iosb->nread; 
91 

92 astselect(&rmask, prmask, rsavxiob[ch_no] ) ; 

93 

94 } 

95 

96 astwselcet (iosb) 

97 struct iosb "'iosb; 

98 { 

99 int ch_no = iosb->nread; 
100 

101 astselect(&wmask,pwmask,wsavxiob[ch_no] ) ; 

102 

103 } 

104 

105 astselect(mask,pmask,s) 

106 long "mask; 

107 long *pmask; 

108 int s; /* xiob number "/ 

109 { 
110 

111 if ( !getod(mask,s) ) 

112 return; /* spurious ast "/ 
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113 setod(pmask,s); 

114 nfounds++; 

115 emt(SETF,SELECT_EFN); 

116 } 
117 

118 getod(rnask,f ) 

119 long *mask; 

120 int f; 

121 { 

122 int -p = (int *) mask; 

123 long r = (long )( 1 « f); 

124 int *q = (int *)(&r); 
125 

126 i£(*p++ & *q++) 

127 return(l); 

128 if(*p & *q ) 

129 return(l); 

130 return(O); 

131 } 
132 

133 setod(mask,f ) 

134 long *mask; 

135 int f; 

136 { 

137 int *p = (int *) mask; 

138 long r = (long )(1 « f); 

139 int *q = (int *)(&r); 
140 

141 *p++ |= *q++; 

142 *p |= *q; 

143 } 
144 

145 /* 

146 * This routine unslects the select requests after the time out expires 

147 * and the od's that are ready are not unselected. 

148 */ 
149 

150 unselect(nods,readods,writeods) 

151 int nods; 

152 long "readods; 

153 long -writeods; 

154 { 

155 int ch_no,i; 
156 

157 if(readods) 

158 for( i = 0; i < nods ; ++i) 

159 i£(getod(&rmask,i)) 

160 i£(!getod(readods,i)) { 

161 ch_no = (int )_xiob[ i ] ._sys_id; 

162 emt(QI0W,IO_ACS|SA_USL,SOLUN,S0EFN,0,0,0,0,0,0,0,ch_no); 

163 } 

164 if(writeods) 

165 for( i = 0; i < nods ; ++i) 

166 i£(getod(&wmask,i) ) 

167 if ( !getod(writeods,i) ) { 

168 ch no = (int ) xiob[ i ] . _sys_id; 
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169 emt(QIOW,IO_ACS|SA_USL,SOLUN,SOEFN,0,0,0,0,0,0,0,,ch_no); 

170 } 

171 } 
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1 /* 
2 

3 Xsleep(3X) for RSX. 

4 */ 
5 

6 #include <rsxos.h> 

7 xsleep( time ) 
8 

9 int time; 

10 { 
11 

12 emt(MRKT,10,time,2,0); 

13 emt(WTSE,10); 

14 } 
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1 /* 
2 

3 Xsyserr(3X) for RSX - does nothing. 

4 */ 
5 

6 static char xsysmsg[] = "unspecified error"; 

7 

8 char *xsyserr( ) 

9 
10 { 
11 

12 return( xsysmsg ); 

13 } 
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15 
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29 

30 

31 

32 

33 

34 

35 

36 

37 
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40 
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/* 
*/ 



filename: XTERM.C 



/"' pointer to user handler routine */ 

/* AST routine to service unsolicated ^C */ 



/* option or characteristics */ 
/" setting "/ 



#include <rsxos.h> 

#define XECHO 1 

#define XLINE_EDIT 2 

^define XOFF_STERM 

#define X0N_STERM 1 

#define TC_NEC 047 

#define TC_BIN 065 
#define TTYEFN 1 

extern int ttylun; 
extern int ttyraw; 
extern int ttyecho; 

int (*_ttyhndlr)() = 0; 
extern int asttyO; 

struct term_char{ 
unsigned char name; 
unsigned char value; 

}; 

struct iosb { 

unsigned char cc; 
unsigned char lc; 
unsigned short nread; 

}; 

xsetterm(option, on_off) 
int option; 
int on_off; 

{ 

int rval = 0; 
struct iosb iosb; 
struct term char t char; 



t_char.name = ( option == XECHO ) ? TC_NEC : TCBIN ; 
t_char. value = !on_off; 
if(t_char.name == TCNEC) 

ttyemt( SFSMC, ttylun, &iosb, &t char, sizeof (tchar)); 
if(option == XLINE_EDIT) { 

rval = ! ttyraw; 

ttyraw = !on_of£; 

} 
else { 

rval = ttyecho; 
ttyecho = on_off; 

} 
return ( rval ) ; 

} 
xrestore term() 



/* XECHO or XLINE_EDIT 
/* 1 == on ; == off 



*/ 
*/ 
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57 { 

58 xsetterm( XECHO, XON_STERM); /* set echo */ 

59 xsetterm( XLINE_EDIT, X0N_STERM); /* set interactive mode */ 

60 } 
61 

62 xint_term(handler) 

63 int ( "handler )( ) ; 

64 { 

65 struct iosb iosb; 

66 int rval; 
67 

68 _ttyhndlr = handler; 

69 /* 

70 rval = ttyemt(QIO, IOATA, ttylun, 0, &iosb, 0, 

71 0, 0, astty, 0, 0, 0); 

72 */ 

73 rval = 0; 

74 return ( rval ); 

75 } 
76 

77 

78 xraw_term( handler ) 

79 

80 int (»handler)(); 

81 { 

82 int rval ; 
83 

84 xint_term( handler ); 

85 rval~= xsetterm( XECHO, XOFFSTERM ); 

86 if ( rval < ) 

87 { 

88 return( rval ); 

89 } 

90 rval = xsetterm( XLINE_EDIT, XOFF_STERM ); 

91 if ( rval < ) 

92 { 

93 xsetterm( XECHO, XONSTERM ); 

94 return( rval ); 

95 } 

96 return( ); 

97 } 
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1 

2 ^include <rsxos.h> 

3 

4 long xtimeO 

5 { 

6 int bu£[8]; 
7 

8 emt(GTIM, buf); 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 



" return parm 






word 


— 


year 


word 1 


— 


month 


word 2 


— 


day 


word 3 


— 


hour 


word 4 


— 


min 


word 5 


— 


sec 



*/ 

return ( ((buf[2]*24 + buf[3])*60 + buf[4])*60 + buf [5] ); 



1 
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1 /* 
2 

3 Save code space, at the expense of time by providing a common 

4 routine to translate exos open mode flags to RSX mode and types 

5 */ 

6 #include <xerrno.h> 

7 #include <xstdio.h> 

8 #define F0_RD 01 

9 #define FO_WRT 016 

10 #define FOAPD 0106 

11 #include <xspecial.h> 
12 

13 xtranmode( mode, ioflag ) 
14 

15 register int mode; 

16 int "ioflag; /* flag to go into xiob structure */ 

17 { 

18 int rmode; 
19 

20 /* 

21 Translate mode to RSX open modes. 

22 */ 

23 if( mode & XFWRITE ) 

24 { 

25 if( mode & XFREAD ) 

26 *ioflag = _XIORW | _XPrimary; 

27 else 

28 *ioflag = XIOWRT; 

29 if( mode & XFAPPEND ) 

30 rmode = FO_APD; 

31 else rmode = FO_WRT; 

32 } 

33 else if( mode & XFREAD ) 

34 { 

35 if( mode & (XFAPPEND | XFCREAT | XFTRUNC)) 

36 { 

37 xperror( XEINVAL, "read and other flags" ); 

38 return( XEINVAL ); 

39 } 

40 *ioflag = _XIOREAD | XPrimary; 

41 rmode = FORD; 

42 } 

43 else 

44 { 

45 xperror( XEINVAL, "not read or write" ); 

46 return ( XEINVAL ) ; 

47 } 

48 return( rmode ); 

49 } 
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filename: XTTY.C 



V 



#include <xstdio.h> 
^include <xspecial.h> 
#include <xerrno.h> 
#include <rsxos.h> 
#include <fcs.h> 

extern xttyreadO; 
extern xttywriteO; 
extern xttycloseO; 



extern struct _rcb 
#define TTYEFN 1 
#define CNTRLZ 0366 



int ttylun = 5; 
int ttyraw =0; 
int ttyecho = 0; 

xttyopen( mode) 
register int mode; 

{ 

int exosfd; 
int rmode; 
int ioflag; 
register XFILE 
register struct 
int i ; 



re 



b[]; 



/* lun associated with the TI : */ 
/" 1 == raw == line_edit */ 
/»- 1 == echo on == echo off */ 



file; 
rcb "'sysid = 



rcb; 



/* 

Translate mode to Rsx mode and type. 

* 7 

rmode = xtranmode( mode, &ioflag); 

if ( rmode < ) 

return ( rmode ); 
for( i=0; i < _XNFILE; ++i, ++sysid ) 

if( sysid->flags & RFREE ) 
break; 
if( i >= UNFILE ) 

return XEMFILE; 
sysid->flags = RUSED; 
sysid->rlun = ttylun; 
exosfd = xnewodO; 
if( exosfd < ) 

return( exosfd ); 
file = &_xiob[exosfd] ; 
file->_file = exosfd; 
file->_flag |= ioflag; 
f ile->_sys_id = sysid; 
file->_read = xttyread; 
file-> write = xttywrite; 



/" Too many files open */ 

/* set LUN OF TI : */ 

/" get a free file descriptor */ 
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57 file->_close = xttyclose; 

58 return( exosfd ); 

59 } 
60 

61 xttyclose( sysid ) 

62 register struct _rcb "sysid; 

63 { 

64 return(O); 

65 /* its a null procedure */ 

66 } 
67 

68 extern struct ttybuf ttybuf; 
69 

70 xttyread(sysid, buf, len) 

71 register struct rcb *sysid; 

72 char -buf; 

73 int len; 

74 { 

75 int ret; 

76 struct iosb iosb; 

77 int lun = sysid->rlun; 

78 int io_fun = I0_RVB; 
79 

80 if(ttyraw) { 

81 /* in raw mode read 1 character */ 

82 len = 1; 

83 io_fun |= TF_RAL; 

84 ret = ttyemt(io_fun,lun,&iosb,buf ,len) ; 

85 return(ret); 

86 } 

87 else { 

88 if(ttybuf .tsize == 0) { 

89 ret = ttyemt(io_fun,lun,&iosb, ttybuf .linetty, 132) ; 

90 if(ret < 0) 

91 return(ret); 

92 if ((int) iosb.cc == CNTRLZ) { 

93 xstdin->_flag |= _XIOEOF; 

94 return(O); 

95 } 

96 ttyemt(lO_WVB, lun, &iosb, f, \n", 1); 

97 /-" give If after reading a line */ 

98 if ( ret >= ) { 

99 if( sysid->flags & DBLBUF ) /* file is used for network */ 

100 ttybuf .linetty[ret++] = f \r'; 

101 ttybuf .linetty[ret++] = '\n'; 

102 ttybuf .cur_pos = ttybuf . linetty; 

103 ttybuf. tsize = ret; 

104 } 

105 } 

106 ret = (len > ttybuf .tsize) ? ttybuf. tsize : len; 

107 xbcopy( ttybuf .curpos , buf , ret ) ; 

108 if(ttybuf .tsize > ret) { 

109 ttybuf. tsize -= ret; 

110 ttybuf .cur_pos += ret; 

111 } 

112 else { 
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113 ttybuf . tsize = 0; 

114 ttybuf .curpos = ttybuf .linetty; 

115 } 

116 } 
117 

118 return ( ret ); 

119 } 
120 
121 

122 /* 

123 " Objective of this function is to process different type of error resulting 

124 * from a call to the driver via QIO ( or emt call in f C f ) call. A QIO 

125 " executive directive call reports error in two different ways through the 

126 " DSW ( directive status word ) and also in the 10 statusblock. Again in the 

127 " IOSB it is divided into two parts one device specific and the other generic. 

128 ,v The generic and the dsw are returned to the caller after shifting it by -512 

129 * and the device specific code is just sign changed. If all is fine then an 

130 * non zero value is returned. 

131 */ 
132 

133 int ttyemt(cmd,lun,iosb,pl,p2) 

134 unsigned short cmd, lun; 

135 struct iosb *iosb; 

136 unsigned short pi, p2; 

137 { 

138 int dsw; 
139 

140 dsw = emt(QI0W, cmd, lun, TTYEFN, iosb, 0, pi, p2, 0, 0, 0, 0); 

141 if ( dsw < ) 

142 return ( dsw - 512 ); /* directive error */ 

143 else 

144 return ( iosb->nread ); 

145 } 
146 

147 
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1 /* 
2 

3 Xunlink for RSX. 

4 */ 

5 ^include <xspecial.h> 

6 ^include <xgenlib.h> 
7 

8 

9 xunlink( name, special ) 
10 

11 char '"name; 

12 int special; 

13 { 

14 char buf [MXNAMELEN +l]; 

15 int rval ; 

16 int ver = 0; 

17 char *p = name; 

18 char cmdlin[CMDSIZE] ; 
19 

20 rval = xrnodname( &name, special, buf, sizeof(buf) ); 

21 if(rvaKO) 

22 return(rval ) ; 

23 while ( *p++ ) 

24 if( *p == •;«){ 

25 ver = 1; 

26 break; 

27 } 

28 if(ver) 

29 mkcmdCcmdlin, "PIP ", name, "/DE/NM", ); 

30 else 

31 mkcmdCcmdlin, "PIP ", name, ";0", "/DE/NM", ); 

32 return(cmdcall(cmdlin) ) ; 

33 } 
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FILENAME: 



ASCBIN.MAC 



ASCPP: — > convert ascii dir string to binary uic. 

ascpp(pstr, puic) 

char *pstr; /* INPUT */ 

int ''-puic; /*OUTPUT */ 

.TITLE ASCBIN 
.IDENT /01/ 



C$SPRT=0 



ASCPP:: 



.PSECT C$TEXT,I,RO 
•IF DF C$SPRT 



JSR 
MOV 
MOV 
MOV 

.ENDC 



CALL 

CLR 
BCC 
MOV 
JMP 



R5,C$SAV 
R5,-(SP) 
4(R5),R2 
6(R5),R3 



; global reference label 



make it 'C 1 callable 

save C frame pointer 

address of string to be converted 

address of uic 



.ASCPP 

R0 
RTN 
#-l,R0 
RTN 



system lib routine to convert string 
to binary uic. 
return status 



PPASC: — > Convert binary uic to ascii dir string 

ppasc(psrt, puic) 
char -pstr; /-OUTPUT */ 
int -puic; /* INPUT */ 
PPASC:: ; global reference label 

.IF DF C$SPRT 



make it 'C 1 callable 

save C frame pointer 

address of string to be return 

address of uic to be converted 



control code 

bit is 1 

bit 1 is 

system lib routine to convert 

bin uic to string dir 

return status 



JSR 


R5,C$SAV 


MOV 


R5,-(SP) 


MOV 


4(R5),R2 


MOV 


6(R5),R3 



.ENDC 



MOV #1,R4 



CALL . PPASC 



CLR 
BCC 



R0 
BIN 
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57 




MOV 


#-l,R0 


58 


BIN: 






59 


RTN: 






60 




.IF DF 


C$SPRT 


61 








62 




MOV 


(SP)+,R5 


63 




JMP 


C$RET 


64 








65 




.IFF 




66 








67 




RETURN 




68 








69 




.ENDC 




70 








71 








72 




.PSECT 


C$TEXT,I,RO 


73 




.EVEN 




74 




.END 





; adjust frame pointer 
; return to caller 
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ASTLCONN: — > This is an ast service routine corresponds to directive 

SREX$. It clean up the stack and calls lostconn to perform 
abnormal termination of task and then exits. 



.TITLE 


ASTLCO 


.IDENT 


/01/ 


.MACRO 


SAVE 


MOV 


R0,-(SP) 


MOV 


R1,-(SP) 


MOV 


R2,-(SP) 


MOV 


R3,-(SP) 


MOV 


R4,-(SP) 


MOV 


R5,-(SP) 



.ENDM 



.MACRO UNSAVE 



MOV 


(SP)+,R5 


MOV 


(SP)+,R4 


MOV 


(SP)+,R3 


MOV 


(SP)+,R2 


MOV 


(SP)+,R1 


MOV 


(SP)+,R0 



.ENDM 

.MCALL ASTX$S,DSAR$S,SETF$S 
.PSECT C$TEXT,I,RO 



ASTLCO:: 



.MCALL ASTX$S 
SAVE 



CALL 
CALL 

UNSAVE 

MOV 
ASTX$S 



,ASTRS:: 



SAVE 

MOV 

JSR 

TST 

UNSAVE 



LOSTPEER 
XEXIT 



(SP)+,(SP)+ 



; save all registers 

> 

; close all the files. 

; unsave all registered 

; clean up stack 

; ast service exit. 



14(SP),-(SP) 
PC,ASTRSELECT 
(SP) + 



save all registers 

get iosb address as first parameter 

call ast-select service routine. 

pop off parameter 

unsave all registered 
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57 


TST 


(SP) + 


58 


ASTX$S 




59 






60 


.ASTWS:: 




61 


SAVE 




62 


MOVB 


14(SP),-(SP) 


63 


JSR 


PC,ASTWSELECT 


64 


TST 


(SP) + 


65 


UNSAVE 




66 


TST 


(SP) + 


67 


ASTX$S 




68 






69 


.PSECT 


C$TEXT,I,RO 


70 


.EVEN 




71 


.PSECT 


C$DATA,D,RW 


72 


.EVEN 




73 


.END 





; pop off stack for ASTXSS 
; exit from AST routine 



save all registers 
push char as parameter for trstat 
call ast-select service routine, 
pop off parameter 



pop off stack for ASTX$S 
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1 

2 
3 


' 










4 
5 
6 


; FILENAME: 


ASTTY.MAC 










This is an ast 


service routine corresponds to int t 


7 






routine( QIO 


10 


ATA ). It calls the user handler to 


8 

9 ' 
10 






process the c 


:ha 


r ^C, not by MCR. 












11 




.psect 


c$text ,i ,ro 






12 












13 




.title 


.astty 






14 




.globl 


.TTYHN 






15 












16 




.MCALL 


ASTX$S 






17 . 


ASTTY: 


• 
• 








18 




MOV 


R0,-(SP) 




; save R0 


19 




MOV 


R1,-(SP) 




; save Rl 


20 




MOV 


R2,-(SP) 




; save R2 


21 




MOV 


R3,-(SP) 




; save R3 


22 




MOV 


R4,-(SP) 




; save R4 


23 




MOV 


R5,-(SP) 




; save R5 


24 




JSR 


PC, @. TTYHN 




; call handler to process interrupt 


25 




MOV 


(SP)+,R5 




; pop off R5 


26 




MOV 


(SP)+,R4 




; pop off R4 


27 




MOV 


(SP)+,R3 




; pop off R3 


28 




MOV 


(SP)+,R2 




; pop off R2 


29 




MOV 


(SP)+,R1 




; pop off Rl 


30 




MOV 


(SP)+,R0 




; pop off R0 


31 




TST 


(SP) + 




; pop off stack for ast 


32 




ASTX$S 






; exit from AST routine 


33 












34 




.END 
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FILENAME CHDR 

This file contains start & end entry points 

.TITLE CHDR 

.MCALL FSRSZ$,GMCR$,DIR$ ,gtsk$s ,wtse$s , spwn$s 

.PSECT C$DATA,D,RW 

GMCR$ 

FSRSZ$ 

.blkw 16. 

/REA / 



GMCR: 
FSRSZ: 
but: 
cmd: 
tsk: 
lun: 
cmdl 
cli: 

START: 



AGN: 



used to store task info. 



/ 
SY0:/ 



.ascn 

.ascii 

.ascii 
= .-cmd 
.even 

.rad50 
.MCALL 
.PSECT C$TEXT,I,RO 



/MCR.../ 
EXIT$S,ALUN$S 



make sure task's default device is same as user's login device 



gtsk$s 

bcs 

mov 

mov 

call 

bcs 

mov 

mov 

call 

bcs 

mov 

mov 

add 

movb 

spwn$s 

bcs 

wtseSs 

sob 



#buf 

exit 

#tsk,r0 

buf ,rl 

$c5ta 

exit 

#tsk+3,r0 

buf+2,rl 

$c5ta 

exit 

#4,r3 



get task name 

if CS error 

address of first three byte of task-name 

first word of task-name 

convert it to ascii 

if cs error 

next three byte of task-name 

second word of task-name 

convert rad50 to ascii 

if cs error 

# times REA to be spawned 



r3,r0 

#60, rO 

r0,lun+l 

#cli, , , , ,#1, , ,#cmd,#cmdl 



LUN # 

make it char 



spawn REA 



exit 

#1 

r3,agn 



get mcr command line 



DIR$ 


#GMCR 


MOV 


$DSW,R1 


BLT 


ERR 



if cs error 

wait for task to complete 

lopp 



get command line 

get # of char read or error 

error 
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57 




CLRB 


GMCR+2(R1) 


58 


CONT: 






59 




MOV 


#GMCR+2,-(SP) 


60 




CALL 


CMAIN 


61 




TST 


(SP)+ 


62 




BR 


EXIT 


63 


ERR: 






64 




CMP 


#IE.AST,$DSW 


65 




BEQ 


CONT 


66 


EXIT:: 






67 




EXIT$S 




68 




.END START 



; clear terminator char in command line 

; push address of cli buffer 

; call start entry points 

; pop the parameter 



; check no command line 
; yes 

; exit 
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C$SPRT = 

;pwlog 

desc: 
uic: 
task: 
buf: 

cmdcall 



.title cmdcall - spawn MCR command line 

.mcall gtsk$s,spwn$s ,wtse$s 



10$: 
20$ 



= 22 

.psect c$data,d,rw 

.blkw 2. 

.word 

.blkw 2. 

.blkw 16. 

.psect c$text,i,ro 

• 

.IF DF C$SPRT 
jsr r5,c$sav 
r5,-(sp) 
4(r5),r4 



mov 
mov 
• ENDC 



mov 
mov 
mov 
jsr 
tst 
mov 
mov 

mov 

call 

gtsk$s #buf 

mov 

mov 



pw,r0 

r0,desc+2 

r0,-(sp) 

pc,xstrle 

(sp) + 

#desc,r2 

r0, (r2) 



; offset of login UIC in password structure 

; string descriptor 

; UIC 

; task name 

; used as task infor block and emit status block 



make it 'C' callable 

save frame pointer 

r4 - pointer to command line 



set rO to address of login UIC 

put login UIC address in descriptor also 

get string length 

get string length 

pop the argument 

r2 get string descriptor address 

store in descriptor 



#uic,r3 ; r3 has address of binary UIC 
.ascpp ; convert UIC 

get task information 
G.TSTN+buf, task ; save task name 
G.TSTN+buf+2, task+2 ; save second half 



now check if the command to be spawned is UFD 



rO has address of command line string 

accept period as valid RAD50 character 

convert to RAD50 

is it UFD? 

yes 

am I a FTP server? 

no, must be a client 



I am a FTP server and command to be spawned is not UFD 



mov 


r4, rO 


mov 


#1, rl 


call 


$cat5 


cmp 


R1,#"RUFD 


beq 


10$ 


cmp 


task,#"RFTD 


bne 


10$ 



add #3, r4 

mov #~RXDR, task 

br 20$ 



; command starts at 3 characters away 
; task name is XDROOn 



This is for FTP client or if command is UFD 



mov #^RMCR, task 

mov #^R..., task+2 ; task name is MCR, 



now spawn the task 
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57 




mov 


r4, -(sp) 


5 


get length of command 


58 




jsr 


pc , xstrle 






59 




tst 


(sp) + 


> 


reset stack 


60 




spwn$s 


#task, , ,uic+l, 


,uic 


,#l,,#buf,r4,r0 


61 




bcs 


90$ 


5 


spawn error 


62 




wtse$s 


#1 


5 


wait for task complete 


63 




cmp 


buf ,#1 


> 


is task OK? 


64 




bne 


30$ 


> 


no- 


65 




clr 


rO 


> 


yes, return 


66 




br 


99$ 






67 


30$: 










68 




mov 


buf ,r0 


» 


error in task exit 


69 




sub 


#512., rO 


> 


return (esb[0] - 512) 


70 




br 


99$ 






71 


90$: 










72 




mov 


$dsw,rO 


> 


return (dsw) 


73 


99$: 










74 




.IF 


DF C$SPRT 






75 




mov 


(sp)+, r5 


> 


adjust frame pointer 


76 




jmp 


c$ret 






77 




.IFF 








78 




RETURN 








79 




.ENDC 








80 




.END 









spawn task 
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1 

2 
3 




FILENAME 


DBLAST.MAC 


4 








This file contain ast ser 


5 




RASTDIO 


AST for read 


6 




WASTDIO 


AST for write 


7 
8 




ASTSIO 


AST for socket i/o 


9 
10 






.TITLE 


DBLAST 


11 






. I DENT 


/01/ 


12 


» 








13 


> 


MODULE 


ASTDIO 


14 


• 








15 


5 






AST SERVICE FOR READ & WR 


16 


• 








17 










18 






.MACRO 


SAVE 


19 






MOV 


R0,-(SP) 


20 






MOV 


R1,-(SP) 


21 






MOV 


R2,-(SP) 


22 






MOV 


R3,-(SP) 


23 






MOV 


R4,-(SP) 


24 






MOV 


R5,-(SP) 


25 






.ENDM 




26 






.MACRO 


UNSAVE 


27 






MOV 


(SP)+,R5 


28 






MOV 


(SP)+,R4 


29 






MOV 


(SP)+,R3 


30 






MOV 


(SP)+,R2 


31 






MOV 


(SP)+,R1 


32 






MOV 


(SP)+,R0 


33 






.ENDM 




34 






.MCALL 


ASTX$S 


35 






.PSECT 


C$TEXT,I,RO 


36 


RASTDIO 


• • 

• * 




37 






SAVE 


> 


38 






MOV 


HBUF+10,R0 ; 


39 






MOV 


20(R0),R0 ; 


40 






MOV 


20(R0),R0 ; 


41 






CMP 


F.BKVB(R0),F.EFBK(R0) ; 


42 






BGT 


SET ; 


43 






CMP 


F.BKVB+2(R0),F.EFBK+2(R0) 


44 






BGT 


SET ; 


45 






BR 


NEXT 


46 


SET: 






47 






MOV 


14(SP),R1 ; 


48 






MOV 


F.FFBY(R0),2(R1) ; 


49 


NEXT: 






50 






MOV 


14(SP),-(SP) ; 


51 






JSR 


PC,DSTAT ; 


52 






TST 


(SP) + ; 


53 






UNSAVE 




54 






TST 


(SP)+ ; 


55 






ASTX$S 





SAVE ALL REGISTERS 
get address of xiob 
get address of .rcb 
get address of fdb 
IT IT LAST BLOCK 
IF GT YES 
; IS IT LAST BLOCK 
IF GT YES 



GET ADDRESS OF IOSB 
# OF BYTES READ 

PUSH IOSB ADDRESS 

FILL UP THE RETURN STATUS 

POP THE PARAMETER 

UNSAVE ALL THE REGISTERS 

POP THE STACK FOR ASTX$S 

RETURN 



56 WASTDIO:: 
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57 


SAVE 




58 


MOV 


HBUF+10,R0 


59 


MOV 


20(R0),R0 


60 


MOV 


20(R0),R0 


61 


JMP 


NEXT 


62 






63 






64 






65 






66 . 


, MODULE 


ASTSIO 


67 






68 




AST SERVICE 


69 






70 






71 


.PSECT 


C$TEXT,I,RO 


72 i 


^STSIO:: 




73 


SAVE 




74 


MOV 


14(SP),-(SP) 


75 


JSR 


PC,NSTAT 


76 


TST 


(SP) + 


77 


UNSAVE 




78 


TST 


(SP) + 


79 


ASTX$S 




80 






81 


.END 





SAVE ALL REGISTERS 
get address of xiob 
get address of .rcb 
get address of fdb 



SAVE ALL REGISTERS 
PUSH ADDRESS OF IOSB 
FILL UP THE RETURN STATUS 
POP THE PARAMETER 
UNSAVE ALL THE REGISTERS 
POP THE STACK FOR ASTX$S 
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1 




.tit 


2 


getenvs 




3 


gethen: 




4 


getnba: . 




5 


getnbn: : 




6 


getnen: ' 




7 


get pen: 




8 


getsbp: 




9 


getsen: 




10 


gpbnam: 




11 


gpbnum: 




12 


rts 


13 




.end 



dummy 



pc 
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1 








2 


; filename: 


ENVAST.MAC 


3 








4 




.title 


ENVAST 


5 




.MACRO 


SAVE 


6 








7 




MOV 


R0,-(SP) 


8 




MOV 


R1,-(SP) 


9 




MOV 


R2,-(SP) 


10 




MOV 


R3,-(SP) 


11 




MOV 


R4,-(SP) 


12 




MOV 


R5,-(SP) 


13 








14 




.ENDM 




15 








16 




.MACRO 


UNSAVE 


17 








18 




MOV 


(SP)+,R5 


19 




MOV 


(SP)+,R4 


20 




MOV 


(SP)+,R3 


21 




MOV 


(SP)+,R2 


22 




MOV 


(SP)+,R1 


23 




MOV 


(SP)+,R0 


24 








25 




.ENDM 




26 








27 




.MCALL 


RCVD$S,SETF$S 


28 








29 


AST. RE: 


: 




30 




SAVE 




31 


AGAIN: 






32 




RCVD$S 


,#msge 


33 




CMP 


#IS.SUC,$DSW 


34 




BEQ 


10$ 


35 




BR 


EXT 


36 


10$: 






37 




SETF$S 


#2 


38 




BR 


AGAIN 


39 


EXT: 






40 




UNSAVE 




41 




ASTX$S 




42 








43 




.END 





; save all registers 

recieve pkt from task 
check for success 
If EQ YES 
no pkt. return 



; go for next pkt. 

; unsave all registered 
; exit from AST routine 
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FILENAME 



..CREATE 

..OPEN 

..READ 

..WRITE 

..RWAIT 

..WWAIT 

..CLOSE 



FIOMAC.MAC 

This file contains i/o related entry points 

CREATE 

OPEN 

READ 

WRITE 

WAIT for read 

WAIT for write 

CLOSE 



.TITLE FIOMAC 
.IDENT /01/ 

.MCALL FSRSZ$ ,OPEN$ ,READ$ ,WRITE$ ,WAIT$ ,CLOSE$ ,FDBDF$ , FDAT$R 

MODULE CREATE 

INPUT parameters 

pi fdb 

p2 type — ascii type otherwise binary 

.PSECT C$DATA,D,RW 



CNTG = -5 
ALLOC = -5 

.PSECT C$TEXT,I,RO 



CREATE : : 



BIN: 



ASC: 



FDAT: 



JSR 
CMP 
BEQ 

MOV 
CLR 
BR 

MOV 
MOV 



R5,C$SAV 
6(R5),#0 
ASC 

#R.FIX,R1 

R2 

FDAT 

#R.VAR,R1 
#FD.CR,R2 



make it 'C' callable 

check file-type ascii/binary 

if EQ ASCII 

BINARY 

RTYPE AS FIXED LENGTH RECORD 

RATT AS NO IMPLIED CR 



; RTYP AS VARIABLE LENGTH RECORD 
: RATT AS IMPLIED CR 



FDAT$R 4(R5),R1,R2,6(R5),#CNTG,#ALL0C 

; INITIALIZE ATTRIBUTE SECTION OF FDB 
JMP C$RET ; JUMP TO RETURN 



MODULE OPEN 

INPUT PARAMETERS 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



PI 


FDB 


P2 


MODE OF FILE 


P3 


LUN 


P4 


DATA SET POINTER 



.PSECT C$TEXT,I,RO 



..OPEN: 



EOPEN: 



JSR 
OPEN$ 
CLR 
JMP 

MOV 

MOVB 

JMP 



R5,C$SAV ; MAKE IT 'C 1 CALLABLE 

4(R5),6(R5),10(R5),12(R5),,#FD.RWM,,, EOPEN 
RO ; RETURN VALUE 

C$RET ; JUMP TO RETURN 



4(R5),R1 

F.ERR(R1),R0 

C$RET 



; GET ADDRESS OF FDB 

; ERROR CODE 

; JUMP TO RETURN 



MODULE READ 

INPUT PARAMETERS 



PI 


FDB 


P2 


BLOCK BUFFER ADDRESS 


P3 


BKEF 


P4 


ADDRESS OF IOSB 


P5 


ADDRESS OF AST 



BLKSIZE=512. 

.PSECT 

. . READ : : 

JSR 

READ$ 

BCS 

MOV 

JMP 

ERIO: 

MOV 
MOVB 
SUB 
JMP 



C$TEXT,I,RO 

R5,C$SAV ; MAKE IT 'C* CALLABLE 

4(R5),6(R5),#BLKSIZE,,10(R5),12(R5),14(R5), CKEOF 

CKEOF 

#1,R0 

C$RET 

4(R5),R1 
F.ERR(R1),R0 

#512., RO 
C$RET 



CHECK FOR END OF FILE 
RETURN VALUE 
JUMP TO RETURN 

GET ADDRESS OF FDB 
ERROR CODE 
MAKE ERROR AS RSX 
JUMP TO RETURN 



CKEOF: 



MOV 

CMPB 

BNE 

CLR 

JMP 



MODULE 



4(R5),R1 

F.ERR(R1),#IE.E0F 

ERIO 

RO 

C$RET 



WRITE 



GET ADDRESS OF FDB 
CHECK EOF 
IF NE ERROR 
RETURN VALUE 
JUMP TO RETURN 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 



INPUT PARAMETERS 

SAME AS 'READ' 

.PSECT C$TEXT,I,RO 



■WRITE:: 

JSR 

WRITE$ 

BCS 

MOV 

JMP 



R5,C$SAV ; MAKE IT 'C* CALLABLE 

4(R5),6(R5),#BLKSIZE,,10(R5),12(R5),14(R5),ERIO 
CKEOF ; CHECK FOR EOF 

#1,R0 ; RETURN VALUE 

C$RET ; JUMP TO RETURN 



MODULE RWAIT 

INPUT PARAMETERS 



.PSECT 
..RWAIT:: 

JSR 
WAIT$ 
CMPB 
BLT 



PI fdb 

P2 address of iosb 

C$TEXT,I,RO 

R5,C$SAV 
4(R5),,,ERW 
@6(R5),#0 
ERW 



SET NO. OF BYTES READ 

MOV 4(R5),R1 

CMP F.BKVB(R1),F.EFBK(R1) 

BGT SETIO 

CMP F.BKVB+2(R1),F.EFBK+2(R1) 

BGT SETIO ; 

JMP C$RET ; 

MOV 6(R5),R2 

MOV F.FFBY(R1),2(R2) 

JMP C$RET 

MOV 6(R5),R1 

CMPB (Rl),#IE.EOF 

BEQ EOF 

MOVB (R1),2(R1) 

SUB #512.,2(R1) 

JMP C$RET 

CLR 2(R1) 

JMP C$RET 



SETIO: 



ERW: 



EOF: 



MAKE IT 'C' CALLABLE 

CHECK ERROR 

IF LT ERROR WHILE READ 

GET FDB ADDRESS 
IS IT LAST BLOCK 
IF GT YES 
; IS IT LAST BLOCK 
IF GT YES 
JUMP TO RETURN 

get address of iosb 

GET FIRST FREE BYTE IN BLOCK 

JUMP TO RETURN 

GET ADDRESS OF IOSB 
eof 

GET I/O ERROR CODE 
MAKE ERROR AS 'RSX* 
JUMP TO RETURN 

return value 
jump to return 
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169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 



MODULE WWAIT 

WAIT FOR DISK WRITE 

INPUT PARAMETERS 

PI FDB 

P2 ADDRESS OF IOSB 

.PSECT C$TEXT,I,RO 



, WWAIT:: 

JSR 

WAIT$ 

CMPB 

BLT 

JMP 



R5,C$SAV 

4(R5),,,ERW 

@6(R5),#0 

ERW 

C$RET 



; MAKE IT 'C' CALLABLE 

CHECK ERROR 

IF LT YES, ERROR WHILE WRITE 

JUMP TO RETURN 



MODULE CLOSE 

INPUT PARAMETERS 

PI fdb 



.PSECT C$TEXT,I,RO 
.CLOSE:: 

JSR R5,C$SAV 

CLOSE$ 4(R5) 

JMP C$RET 



; MAKE IT 'C f CALLABLE 
; JUMP TO RETURN 



MODULE 





WMREC 


















Adjust 


FDB 














INPUT 


PARAMETERS 
















PI 
P2 
P3 


fdb 

max record 

first free 


size 
byte 


in 


last 


bl 


ock 



, WMREC:: 



JSR R5,C$SAV 



; MAKE IT 'C' CALLABLE 
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225 




MOV 


4(R5),R1 


, GET fdb 


226 




MOV 


6(R5),F.RSIZ(R1) 


> set max rec size 


227 




MOV 


10(R5),F.FFBY(R1) 


, set first freee byte 


228 




CMP 


10(R5),#0 


, check first free byte is 


229 




BEQ 


NEXT1 


, If EQ yes 


230 




DEC 


F.EFBK+2(R1) 


, end of block number 


231 


NEXT1 : 








232 




JMP 


C$RET 


, JUMP TO RETURN 


233 




.END 






234 
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17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 



FILENAME 



LIBMAC.MAC 



.TITLE LIBMAC 

•MCALL ASTX$S ,EXIT$S 

.PSECT C$TEXT,I,RO 



this routine is the AST service routine specified in the catchoobO 
library call. After it is invoked it simply passes control to another 
library routine called libastO which selectively calls user specified 
handler. The address of the iosb being on top of the stack, is automati- 
cally passed to the libstat routine. 



» r\o X. \jj\ • « 



JSR PC,LIBAST 
TST (SP)+ 
ASTX$S 



; global referance 

; call library routine LIBSTAT 

; pop off stack to adjust for the ASTX call 

; exit from ast routine 



$EXIT : exit from current task 



$EXIT:: EXIT$S 



; make an task exit 



.PSECT C$TEXT,I,RO 

.EVEN 
.END 
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filename: 



MUXAST.MAC 



ASTRD1 



.title MUXAST 

This file contains the two ast service routines that are 
called by the system when read is completed on either the network 
or the terminal. These in turn call C routines that set the return 
status for the netread and net_write "processes". 

.MACRO SAVE 



MOV 


R0, 


-(SP) 


MOV 


Rl, 


-(SP) 


MOV 


R2,- 


-(SP) 


MOV 


R3,- 


-(SP) 


MOV 


R4, 


-(SP) 


MOV 


R5,- 


-(SP) 



.ENDM 



.MACRO UNSAVE 



MOV 


(SP)+,R5 


MOV 


(SP)+,R4 


MOV 


(SP)+,R3 


MOV 


(SP)+,R2 


MOV 


(SP)+,R1 


MOV 


(SP)+,R0 



.ENDM 



-MCALL ASTX$S,DSAR$S,SETF$S 



SAVE 

MOV 

JSR 

TST 

UNSAVE 

TST 

ASTX$S 



ASTRD2:: 



SAVE 

MOVB 

JSR 

TST 

UNSAVE 

TST 

ASTX$S 

.END 



14(SP),-(SP) 
PC,NRSTAT 
(SP) + 

(SP) + 



14(SP),-(SP) 
PC,TRSTAT 
(SP) + 

(SP) + 



save all registers 

get iosb address as first parameter 

fill up the return status 

pop off parameter 

unsave all registered 

pop off stack for ASTX$S 

exit from AST routine 



save all registers 

push char as parameter for trstat 



pop off parameter 
; pop off stack for ASTX$S 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



FILENAME 



PARSE. MAC 



This routine parese the command string by using CSI$ specific 
riutines. It parses the input command line and stores the 
return values in CSI control block, which may be directly used 
by File open routines. 
Following is format of command string: 

dev: [g,m]f ilespec 
To parse the command string , it has three major function: 
i) Allocate CST control block 
ii) Syntax validation of command 
iii) Semantic check 



INPUT: 



se(buf ,len) 



par 

char *buf ; 

int len; 



OUTPUT: 



— successful comletion 

relevant information in CSI control block 

1 — unsuccess . 



C$SPRT=0 



CSI • BL ' 



CSIBLK l 



PARSE: 



.TITLE PARSE 

.IDENT /01/ 

i 

.PSECT C$DATA,D,RW 

.MCALL CSI$,CSI$1,CSI$2 

CSI$ DEF$G 

.EVEN 

.BLKB C.SIZE 



; define CSI control block offsets 
; and bit values globaaly. 



.BLKW 

.PSECT C$TEXT,I,RO 

.IF DF C$SPRT 



JSR 
MOV 
MOV 
MOV 

.ENDC 

MOV 

CSI$1 



R5,C$SAV 
R5,-(SP) 
4(R5),R2 
6(R5),R3 



; allocate required storage 

; to access the CSI control block in 'C' 
; global refernce label 



make it ' C' callable 

save C frame pointer 

get address of command string 

length of commnad string 



#CSI.BL, CSIBLK ; store the address of CSI contorl block 

; for accessing in 'C' code. 
#CSI.BL,R2,R3 
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57 


BCS 


ERR 


58 


CSI$2 


#CS I. BL, OUTPUT 


59 


BCS 


ERR 


60 


CLR 


RO 


61 


JMP 


RTN 


62 ERR 


• 
• 




63 


MOV 


#-l,R0 


64 RTN 


• 
• 




65 


.IF DF 


C$SPRT 


66 






67 


MOV 


(SP)+,R5 


68 


JMP 


C$RET 


69 






70 


.IFF 




71 






72 


RETURN 




73 






74 


.ENDC 




75 






76 


.PSECT 


C$DATA,D,RW 


77 


.EVEN 




78 


.PSECT 


C$TEXT,I,RO 


79 


.EVEN 




80 


• END 





; check for success 

; check for success 
; yes , return success 



; error code. 



; adjust frame pointer 
; return to caller 
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1 


> 






2 


; FILENAME: 


RAD I X.MAC 


3 


* 






4 








5 


; RADIX: « > 


Converts ar 


6 


> 






7 








8 








9 




.TITLE 


RADIX 


10 




. I DENT 


/01/ 


11 


C$SPRT= 


=0 




12 




.PSECT 


C$DATA,D,RW 


13 


TMP: 






14 




.WORD ( 


) 


15 




.PSECT 


C$TEXT,I,RO 


16 


RADIX: 


■ 




17 




• IF DF 


C$SPRT 


18 








19 




JSR 


R5,C$SAV 


20 




MOV 


R5,-(SP) 


21 




MOV 


4(R5),R0 


22 








23 




.ENDC 




24 








25 




MOV 


#1,R1 


26 




CALL 


$CAT5B 


27 




BCS 


FAIL 


28 




MOV 


R1,TMP 


29 




MOV 


#1,R1 


30 




CALL 


$CAT5B 


31 




BCS 


FAIL 


32 


* 


MOV 


R1,R0 


33 




MOV 


TMP,R0 


34 




JMP 


RTN 


35 


FAIL: 






36 




CLR 


RO 


37 




CLR 


Rl 


38 


RTN: 






39 




.IF DF 


C$SPRT 


40 








41 




MOV 


(SP)+,R5 


42 




JMP 


C$RET 


43 








44 




.IFF 




45 








46 




RETURN 




47 








48 




.ENDC 




49 








50 




.PSECT 


C$DATA,D,RW 


51 




• EVEN 




52 




.PSECT 


C$TEXT,I,RO 


53 




.EVEN 




54 








55 


; c5TA 


: 




56 


» 


Converts 16bit rad5C 



; global refernce label 



make it 'C' callable 
save C frame pointer 
address of first char 



'.' is a valid ascii char for conversion 
convert 3 ascii char to radix 50(consider 



') 



check for success 

save converted value 

'.* is a valid char(consider ' ' too as valid) 

convert next 3 ascii char to radix 50 

check for success 

return value 

return value 



; adjust frame pointer 
; return to caller 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 



INPUT 



C5TA: : 



pi = address of ascii string to be stored 
p2 = 16 bit rad50 value 



.psect c$text,i,ro 



JSR 


R5,C$SAV 


MOV 


4(R5),R0 


MOV 


6(R5),R1 


CALL 


$C5TA 



JMP 



C$RET 



.psect c$text,i,ro 
.even 

.END 



save registers 

get address of ascii string 

get 16 bit rad50 value 

call system lib routine to convert 

16 bit rad50 value to ascii str. 

unsave registers & return 
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FILENAME: 



XSETJMP.MAC 



Environment 



9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 SETJMP: 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 10$: 
51 
52 
53 
54 
55 
56 20$: 



JSR 
MOV 
MOV 
MOV 
CALL 

TST 
TST 

TST 
BEQ 

MOV 
MOV 
MOV 
ADD 



MOV 
SOB 

MOV 
BR 



Setjmp & longjmp are only callabe from ' C' 
Floating point register's are not saved. 



PC 

Old FP 

R4 



R3 
R2 



FP 



Scratch cell used by ' C' compiler 



.TITLE XSETJMP 
.IDENT 701/ 



.PSECT C$TEXT,I,RO 



R5,C$SAV 
R5,-(SP) 
#0,-(SP) 
#16., -(SP) 
XMALLOC 

(SP) + 
(SP) + 

R0 
20$ 

R0,@4(R5) 
#7,R3 
R5,R2 
#4,R2 



-(R2),(R0)+ 
R3,10$ 

#0,R0 
30$ 



global reference label 

make it 'C' callable 

save C frame pointer 

PUSH DUMMY PARM. 

PUSH # OF BYTES TO ALLOCATE 

'C' RUN-TIME ALLOC ROUTINE 



POP THE PARAMETER 

; CHECK RETURN VALUE 

; IF EQ ALLOCATION FAILURE 

STORE ADDRESS OF ENV. 

WORD COUNT FOR LOOP 

GET ADDRESS OF FP 

GET HIGH ADDRESS OF CURRENT ENV. WHICH 

IS TO BE SAVE 



; LOOP 

; SUCCESSFUL VALUE 
; JUMP TO RTN. 
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57 




MOV 


#-l,R0 


58 


30$: 






59 




MOV 


(SP)+,R5 


60 




JMP 


C$RET 


61 








62 








63 




.PSECT 


C$TEXT,I,RO 


64 








65 


XLONGJMP:: 




66 








67 




JSR 


R5,C$SAV 


68 




MOV 


R5,-(SP) 


69 








70 




TST 


@4(R5) 


71 




BEQ 


30$ 


72 




MOV 


@4(R5),R1 


73 




MOV 


#7,R3 


74 


20$: 






75 




MOV 


(Rl)+,-(SP) 


76 




SOB 


R3,20$ 


77 




MOV 


SP,R2 


78 




MOV 


#0,-(SP) 


79 




MOV 


@4(R5),-(SP) 


80 




CALL 


XFREE 


81 








82 




TST 


(SP)+ 


83 




TST 


(SP)+ 


84 








85 




CLR 


@4(R5) 


86 




MOV 


(R2),R5 


87 








88 




MOV 


R5,R1 


89 




SUB 


#12, Rl 


90 




MOV 


#7,R3 


91 


25$: 






92 




MOV 


(R2)+,(R1)+ 


93 




SOB 


R3,25$ 


94 








95 




MOV 


#1,R0 


96 




BR 


40$ 


97 


30$: 






98 




MOV 


#-l,R0 


99 


40$: 






100 




MOV 


(SP)+,R5 


101 




JMP 


C$RET 


102 








103 




.PSECT 


C$TEXT,I,RO 


104 




.EVEN 




105 








106 




.END 





; UNSUCCESSFUL VALUE 

; adjust frame pointer 
; return to caller 



make it ' C' callable 
save C frame pointer 

CHECK ADDRESS OF ENV. 

IF EQ ADDRESS IS NULL 

GET ADDRESS OF ENV. IN REG 1 

WORD COUNT 

PUSH ENV. FROM HEAP TO STACK 

LOOP FOR 7, TIMES. 

REMEMBER THE ADDRESS OF SAVED ENV. 

DUMMY PARM. 

PUSH ADDRESS OF ENV. 

'C' RUN-TIME ROUTINE TO DEALLOCATE 

ROUTINE 

POP THE PARAMETER 

CLEAR THE POINTER 

LOAD THE FRAME POINTER CORRESSPOND TO 

SETJMP. 

LOAD THE LOW ADDRESS OF ENV. 
#WORD COUNT 



LOOP 

RETURN VALUE 

; UNSUCCESSFUL RETURN VALUE 
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1 .title xspawn 

2 .psect c$text,i,ro 
3 

4 .MCALL CLEF$S,SETF$S 

5 XSPAWN:: 

6 jsr R5,c$sav 

7 CLEF$S #50. ; clear efn 50 

8 SETF$S #51. ; set efn 51 to unstop MST 

9 jmp c$ret 
10 

11 .END 
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24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 TTYEFN 

11 C$SPRT 
12 
13 
14 

15 .RCB 

16 RLUN 

17 FLAGS 

18 DBLBUF 

19 BUF 

20 LEN 

21 BUFSIZE 

22 LOCBUF 
23 

iosb: 
count : 
extra: 
iocal : 



.title xttywrite 

xttywrite(sysid, buf, len) 

sysid - address of RSX - control block 

buf - buffer address 6(r5) 

len - buffer length 10(r5) 

.mcall qiow$,dir$ 
.psect c$data,d,rw 
= 1 
= 

define offsets used for variables 

= 4 

= 2 

= 4 

= 40 

= 6 

= 10 

= 512. 

= -6 - BUFSIZE 



xttywn 



.blkw 
.word 
.word 
qiow$ 
.psect 
te: : 



2. 





10. WVB,0, TTYEFN,, iosb 
c$text ,i ,ro 



.IF DF C$SPRT 



jsr 

add 

.ENDC 

mov 

mov 

tst 

beq 



r5,c$sav 
#LOCBUF, sp 



; make it 'C' callable 

; allocate local space on stack 



.RCB(r5),r0 *, get address of RCB 

RLUN(rO), iocal+Q.IOLU ; save LUN 
ttyraw ; Is this write using raw mode 

10$ ; no- 



raw mode I/O 



mov 

mov 

dir$ 

jsr 

br 



BUF(r5), iocal+Q.IOPL ; buffer address 

LEN(r5), iocal+Q.IOPL+2 ; buffer length 
#iocal ; directive call 

pc, ret ; handle return value 
999$ ; return 



Non-raw mode I/O 



10$: 



mov 
add 
clr 
clr 
mov 
mov 



r5, Q.IOPL+iocal 
#LOCBUF, Q.IOPL+iocal 



set up output buffer address 



count 
extra 

LEN(r5), rl 
r5 , r2 



clear byte count 

clear extra byte count 

rl - number of bytes to output 

r2 - end of local buffer 
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15$: 



57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 20$: 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 30$: 

90 

91 

92 

93 

94 

95 50$: 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 

110 60$: 
111 
112 999$: 



add 
mov 
mov 
add 

tst 
beq 
dec 
cmp 
bne 



#-6, r2 
BUF(r5), r3 
r5 ,r4 
#LOCBUF, r4 

rl 
50$ 
rl 

r4, r2 
20$ 



adjust offset for buffer size 
r3 - pointer to input buffer 
r4 - pointer to local buffer 
adjust for offset 

any more bytes to output 

no 

decrement output count 

check if end of local buffer reached? 

not yet 



reached end of local buffer 

mov #BUFSIZE, Q.IOPL+2+iocal ; output buffer size 

dir$ #iocal ; output the buffer 

jsr pc,ret 

add rO, count ; update output count 

mov r5 , r4 ; reset pointer to local buffer 

add #LOCBUF, r4 



stuff character into output buffer 



mov 

bit 

bne 

cmpb 

bne 

movb 

movb 

inc 

br 



.RCB(r5),r0 ; get RCB address 
#DBLBUF, FLAGS (r0); is buffer from network 



30$ 

(r3),#12 

30$ 

(r3)+, (r4)+ 

#15, (r4)+ 

extra 

15$ 



if NE yes 
is input a \n 
no- 
put LF CR into output buffer 

; increment extra character count 
; try next character 



regular character 

movb (r3)+, (r4)+ 
br 15$ 



finish with all the output processing, flush last buffer 

; calculate buffer size 
; set up the buffer size 



sub #LOCBUF, r4 

sub r5, r4 

mov r4, Q.IOPL+2+iocal 

dir$ #iocal 

jsr pc,ret 

add rO, count 

mov LEN(r5), rO 

add extra, rO 

cmp count, rO 

bne 60$ 

mov LEN(r5), count 

mov count, rO 



; process return value 



; are all characters sent out? 

; no- 

; yes, return original length of buffer 

; return count 
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113 




.IF 


DF C$SPRT 


114 




jmp 


c$ret 


115 




.IFF 




116 




RETURN 




117 




.ENDC 




118 








119 


ret: 






120 








121 




Handle 


return valu 


122 








123 




bcs 


100$ 


124 




mov 


iosb+2, rO 


125 




rts 


pc 


126 


100$: 






127 




mov 


$dsw, rO 


128 




rts 


pc 


129 








130 




.END 





; error 

; no, return number of bytes read 



; error, return DSW 
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1 /* 

2 @(#)arp.h 1.1 3/26/85 
3 

4 Include files for the ARP program on RSX, 

5 */ 
6 

7 #include <xgenlib.h> 

8 #include <xspecial .h> 

9 #include <in.h> 

10 ^include <socket.h> 

11 ^include <brdioctl.h> 

12 #include <exiocmd.h> 

13 #include <types.h> 

14 #include <netdb.h> 

15 #include <hostarp.h> 

16 #define ether_aton etr_aton 

17 #define ether print etr print 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 



filename: BRDIOCTL.H 



*/ 

/* 

* This file defines all the equate symbol for the administrative 

* device's ioctl commands. Some of them are passed as it is to the 

* board, hence should not be modified. 
*/ 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



BRDINIT 

BRDSTART 

BRDGSTAT 

BRDRSSTAT 

BRDGCONF 

BRDADDR 



#define BRDSARP 
#define BRDGARP 
#define BRDDARP 

#define BRDADDRT 
#define BRDDELRT 
#define BRDSHOWRT 
#define BRDDISPRT 



(0) 
(1) 
(5) 
(6) 
(7) 
(10) 

(20) 
(21) 
(22) 

(23) 
(24) 
(25) 
(26) 



/* Reset EXOS devive */ 

/* start exos running */ 

/" get board statistics */ 

/* get/reset board statistics-/ 

/* get configuration msg */ 

/" set exos memory locator */ 

/* set an ARP table entry */ 
/» get an ARP table entry */ 
/« delete an ARP tbl entry */ 

/«' add routing table entry */ 
/* delete RT entry */ 
/* show RT entry */ 
/* display RT entry */ 



/* Data structure used to send board statistics to host */ 



struct EXbdstats { 



long 


xmt ; 


long 


excess coll; 


long 


late coll; 


long 


tdr; 


long 


rev; 


long 


align err; 


long 


crc err; 


long 


lost err; 



/* frames transmitted successfully */ 
/* xmits aborted due to excess coll 
/* xmits aborted due to late coll */ 
/" time domain ref lectometer */ 
/* error free frames received */ 
/* frames revd with alignment err 
/* frames revd with crc errors */ 
/* frames lost due to no buffers 



7 



*/ 

/ 



/* other bits of info about the board */ 



short fw_release; 
short sw_release; 
short hw release; 



/* firmware release */ 
/* software release */ 
/* hardware release */ 



1; 
/* 



* Ioctl structure for manipulation of the ARP codes 
*/ 



struct EXarp_ioctl { 

struct sockaddr arp_pa; 

struct sockaddr arpha; 

long arp_flags; 

}; 



/" protocol address 
/" hardware address 
/"' flags 



*/ 
*/ 
*/ 
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57 
58 
59 
60 
61 



#define ATF_C0M 
#define ATF_PERM 
#de£ine ATF PUBL 



/" completed entry */ 
/" permanant entry */ 
/* respond for another host */ 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 



filename: EXIOCMD.H 



*/ 



/* 



following are the requests send to the board 
- host to board request must be less than 64 ; 
flags takes up upper two bits. 



*/ 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



SOSOCKET 

SOACCEPT 

SOCONNECT 

SOSEND 

SORECEIVE 

SOSKTADDR 

SOCLOSE 

SOVERIFY 

SOIOCTL 

SOSELECT 



#define NET_DLOAD 
#define NETJJLOAD 
#define NET_START 

#define NET_GSTAT 
#define NET_RSTAT 

#define NET_GCONF 

#define NET_SARP 
#define NETGARP 
#define NET_DARP 

#define NET_ADDRT 
#define NET_DELRT 
#define NET_SHOWRT 
#define NET DISPRT 



(50) 
(51) 
(52) 
(53) 
(54) 
(55) 
(56) 
(57) 
(58) 
(59) 





1 
2 

BRDGSTAT 
BRDRSSTAT 

BRDGCONF 

BRDSARP 
BRDGARP 
BRDDARP 

BRDADDRT 
BRDDELRT 
BRDSHOWRT 
BRDDISPRT 



/* unsolicited messages from board */ 



#define SOSELWAKEUP 
#define SOHASOOB 
#define NET_PRINTF 
#define NET_PANIC 
#define IM ALIVE 



#define REPLY OK 



(80) 
(81) 

100 

101 

102 



0x00 



/* net download */ 

/* net upload */ 

/* start downloaded stuff*/ 

/* read net statistics */ 
/* read & reset stats */ 

/* get configuration rnsg"/ 

/* set ARP -/ 
/* get ARP -7 
/* delete ARP */ 

/* add RT entry */ 
/* delete RT entry */ 
/* show RT -7 
/* display RT */ 



#define NM_MAGIC_DATA 0x80 
#define MQ EXOS 0x01 



/* print out msg */ 
/* oh-my-gosh */ 
/* I think therfore I am*/ 



/* all is well */ 



/* exos own Q element */ 
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57 #define MQDONE 

58 #define MQ_OVERFLOW 
59 

60 



0x02 
0x04 



I* exos done with Q elmnt*/ 
/* data are too big */ 
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28 
29 
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/* 
* These are the DIC and DPB lengths of the Executive directives 
*/ 

# define QIO 06001 

# define QIOW 06003 

# define ALUN 02007 

# define WTSE 01051 

# define GTIM 01075 

# define SPWN 06413 

# define SDRC 03615 

# define SDAT 02507 

# define STOP 0603 

# define RCVD 02113 

# define MRKT 02427 



/* Executive return status */ 

# define IE_BAD -01 

# define IE_IFC -02 

# define IE_DNR -03 

# define IE_SPC -06 

# define IE_AB0 -15 

# define IE_PRI -16 

# define IE_DFU -24 

# define IE_FHE -59 

# define IE_OFL -65 

/* 

* These are the function codes related to the QIO call to the ZE device 
*/ 

/* 

* following five codes are already defined in standard rsx header file 

* rsx.h and are not defined here only shown under comment for clarity 



I* bad parameters */ 

/" illegal function */ 

/* device not ready */ 

/* illegal buff err */ 

/" request aborted */ 

/* priv or channel error*/ 

/"' no free channel */ 

/" fatal hardware error */ 



/" device offline 



*/ 



define IOKIL 
define IO_WLB 
define IO_RLB 
define IO_ATT 
define IO_DET 

*/ 



000012 
000400 
001000 
001400 
002000 



#define IO_EXC 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



002400 



#def ine 
#def ine 
#def ine 
#def ine 



EX_INI 
EX_CNF 
EX_STR 
EX_STS 
EX_SAR 
EX_GAR 
EX_DAR 
EX_ART 
EX_DRT 
EX_SRT 
EX NRT 



BRDINIT 

BRDGCONF 

BRDSTART 

BRDGSTAT 

BRDSARP 

BRDGARP 

BRDDARP 

BRDADDRT 

BRDDELRT 

BRDSHOWRT 

BRDDISPRT 



# kill all outstanding request # 

# write to the EXOS memory # 

# read from the EXOS memory # 

# attach fn: made no-op # 

# detach fn: made no-op # 



/ ,v EXOS board admn. operation */ 
/* Reset and configure EXOS 



*/ 

/* get configuration msg 
/" Execute EXOS procedure */ 
/* Read network statistics */ 
/* set up an ARP table entry */ 
/* Retrive an ARP table entry */ 
/" Delete an ARP table entry */ 
/" Add an Routing table entry */ 
/" Delete an RT entry */ 
/- Fetch an RT entry */ 
/" Fetch next RT entry "'/ 



*/ 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



#def ine 
#def ine 
#def ine 
#def ine 

#define 10 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



EXRST 
EX_0PN 
EX_CLS 
EXPOS 

ACS 

"SA_0PN 
SA_ACC 
SACON 
SA_SAD 
SA_CLS 
SA_SEL 
SAJJSL 
SA_URG 
SA R00 



#define 10 XFR 



#def ine 
#def ine 
#def ine 
#def ine 

#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



IX_RDS 
IX_WRS 
IX_SND 
IXRCV 

IOSOC 
SO_DON 
SOSKP 
SOGKP 
SOSLG 
SOGLG 
SOSOB 
SOROB 
S0_AMK 
SOSPG 
SOGPG 
S0_NRD 
S0_NB0 
SO ASY 



#define I0_L0G 
#de£ine I0_TEL 
#define TS HNG 



BRDRSSTAT 
0020 
0021 
BRDADDR 



003000 



/* 



50 

51 

52 

55 

56 

59 

0210 

0200 

0220 



003400 



/* 



0000 
0001 
53 

54 



004000 



SIOCDONE 

SIOCSKEEP 

SIOCGKEEP 

SIOCSLINGER 

SIOCGLINGER 

SIOCSENDOOB 

SIOCRCVOOB 

SIOCATMARK 

SIOCSPGRP 

SIOCGPGRP 

FIONREAD 

FIONBIO 

FIOASYNC 

004400 

0177000 

0176000 



/* Read & Reset network stats */ 

/* Open an admin channel */ 

/* Close an admin channel */ 

/* Seek EXOS's memory */ 

Socket access operations */ 
/* Open a socket */ 

/* Accept a remote socket */ 
/* Connect to a remote socket */ 
/* get socket informations "'/ 
/* close an opened socket */ 
/* perform select op on socket"*/ 
/* kill the outstanding select call */ 
/* prepare for urgent msg "'/ 
/* remove oob pkt from pending list */ 



data transfer operation */ 
/"* read from TCP stream 
/* write to TCP stream 
/* send datagram to a socket 
/" receive socket datagram 



socket control operations 
/* shutdowm r/w on socket 
/" set keep alive 
/" inspect keep alive 
/* set linger time 
/" get linger time 
/* send out of band 
/* receive out of bound 
/* at oob mark ? 
/* set process group 
/* get process group 
/* FIONREAD 
/* FIONBIO 
/* FIOASYNC 



7 



*/ 
*/ 
*/ 
*/ 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



/" read error msg from EXOS */ 

/* telnet server pseudo fn code */ 

/" hangup carrier pseudo fn code*/ 



/* 



All the Socket related parameters in the QIO call are passed 
throgh the structure "SOictl" defined below. 



*/ 



struct 



SOictl 

short 

struct 

short 

struct 

int 

int 



{ 



hassa; 

sockaddr sa; 

hassp; 

sockproto sp; 

type; 

options; 
/* these are for select () 
int nfd; 
long *wp; 



/* non-zero if sa specified 

/* socket address (optional) 

/* non-zero if sp specified 
/* socket protocol (optional) 

/* socket type */ 

/* options */ 
*/ 



*/ 

*/ 



*/ 



*/ 
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long 
long 

}; 



*rp; 
timo; 
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1 /- unsigned data types (shorthand) */ 

2 typedef unsigned int Uint; 

3 typedef long Ulong; 

4 typedef unsigned short Ushort; 

5 typedef char Uchar; 
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1 

2 
3 


/* RSX 


CONTROL 


- BLOCK */ 


struct 


rcb { 




4 




int 


mode; 


5 




int 


rlun; 


6 




int 


flags; 


7 




char 


-bptr; 


8 




char 


"bnptr; 


9 




int 


bleft; 


10 




char 


-rptr; 


11 




char 


*rnptr ; 


12 




char 


*fdb; 


13 




union { 




14 






int rleft; 


15 






int rsize; 


16 




} rec; 




17 


}; 






18 








19 


struct ' 


dblbuf { 




20 




int 


stat[2]; 


21 








22 








23 








24 




char 


*buf£er[2]; 


25 




XFILE 


*fd; 


26 




char 


active; 


27 




}; 




28 








29 


struct 


iosb { 




30 




unsigned char cc; 


31 




unsigne< 


i char lc; 


32 




int nread; 


33 




}; 




34 








35 


#def ine 


RFREE 


01 


36 


#def ine 


RUSED 


02 


37 


#def ine 


REOF 


04 


38 


#def ine 


REOLN 


010 


39 


#def ine 


DBLBUF 


040 


40 


#def ine 


RCRFLAG 


020 


41 


#def ine 


SOEFN 


11 


42 


#def ine 


DISKEFN 


12 


43 


#def ine 


FDBSIZE 


0140 


44 


#define 


F FFBY 


014 


45 


#def ine 


F RSIZ 


02 


46 


#def ine 


F BKVB 


064 


47 


#def ine 


RECSIZE 


256 


48 


#def ine 


BLKSIZE 


512 


49 


#def ine 


MAXPRM 


20 


50 


#def ine 


C DSDS 


06 


51 


#def ine 


10 XFR 


003400 


52 


#def ine 


IX RDS 


0000 


53 


#def ine 


IX WRS 


0001 


54 


#def ine 


SOLUN 


20 



/" File type */ 

/* RSX LUN */ 

/* Flags — described below */ 

/* pointer to block buffer */ 

/" next position in block */ 

/" bytes left in block read/write*/ 

/" poiter to record buffer */ 

/* next position in record */ 

/* pointer to FDB */ 

/* char left to be read *l 
I* max. record size */ 



/" status of i/o buffer */ 

/* = o — EOF */ 

/* < — I/O Error */ 

/* > — Bytes transferred */ 

I* pointer to file descriptor */ 
/* buffer used for 10 */ 



/* 



/" data transfer stream */ 
/" read from TCP stream */ 
/" write to TCP stream */ 
EXOS0 LUN */ 
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26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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41 
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/* (§(#)ftp.h 

/* 

* Definitions for FTP 

* See RFC-765 

*/ 
#ifndef MAXPATHLEN 
#define MAXPATHLEN 1024 
#endif 

#ifndef CTRL 
#define CTRL(x) 037&x 
#endif 

#ifndef SIGCHLD 
#define SIGCHLD SIGCLD 
#endif 

/* 
"> v Reply codes. 

*/ 

#define PRELIM 

#define COMPLETE 

#define CONTINUE 

#define TRANSIENT 

#define ERROR 

/* 
" Type codes 

*/ 

#define TYPE_A 

#define TYPE_E 

#define TYPE_I 

#define TYPE_L 

/* 

* Form codes 

*/ 
#define FORM_N 
#define FORM_T 
#define FORM_C 

/* 

* Structure codes 

*/ 
#define STRU_F 
#define STRUR 
#define STRUP 

/* 

* Mode types 
*/ 

#define MODE_S 
#de£ine MODE_B 
#de£ine MODE_C 

/* 
" Record Tokens 

*/ 



1.2 1/14/85 */ 



/"* positive preliminary */ 

/" positive completion */ 

/" positive intermediate */ 

/* transient negative completion */ 

/" permanent negative completion */ 



/* ASCII */ 

/* EBCDIC */ 

/* image */ 

/" local byte size "'/ 



I* non-print */ 

/" telnet format effectors */ 

/" carriage control (ASA) */ 



/- file (no record structure) */ 
/" record structure */ 
/~ v page structure */ 



/" stream */ 

/* block */ 

/-•'" compressed *l 
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57 #define REC_ESC '\377 f /* Record-mode Escape */ 

58 #define REC_EOR '\001' /* Record-mode End-of-Record */ 

59 #define REC_EOF '\002* /* Record-mode End-o£-File */ 
60 

61 /* 

62 * Block Header 

63 */ 

64 #define BLK_E0R 0x80 /* Block is End-of-Record */ 

65 #define BLK_E0F 0x40 /* Block is End-of-File */ 

66 #define BLK_ERRORS 0x20 /* Block is suspected of containing errors */ 

67 #de£ine BLK_RESTART 0x10 /* Block is Restart Marker */ 
68 

69 #define BLK BYTECOUNT 2 /* Bytes in this block */ 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
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/*@(#)ftp_var.h 1.12 6/13/85*/ 

/* 

* FTP global variables. 
*/ 

#include "varpat.h" 

/* 

* Options and other state info. 
*/ 

extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 

extern char 
extern int 
extern char 
extern int 
extern char 
extern int 
extern char 
extern int 
extern char 
extern int 

extern char 

extern struct 

#ifdef zilog 

#include <setret.h> 

extern ret_buf toplevel; 

#else 

/* #include <setjmp.h> */ 

extern jmp_buf toplevel; 

#endif 



trace; 


/* 


hash; 


/* 


sendport ; 


/* 


verbose; 


/* 


connected; 


/* 


f romatty; 


/* 


interactive; 


/* 


debug; 


/* 


bell; 


/* 


doglob; 


/* 


autologin; 


/* 


typenamet ] ; 


/* 


type; 


/* 


structname[ ] ; 


/* 


stru; 


/* 


formname[ ] ; 


/* 


form; 


/* 


modename[ ] ; 


/* 


mode; 


/* 


bytenamet ] ; 


/* 


bytesize; 


/* 


''''ho st name; 


/* 


servent *sp; 


/* 



trace packets exchanged */ 

print # for each buffer transferred */ 

use PORT cmd for each data connection *l 

print messages coming back from server */ 

connected to server */ 

input is from a terminal */ 

interactively prompt on m* cmds */ 

debugging level */ 

ring bell on cmd completion */ 

glob local file names */ 

establish user account on connection */ 

name of file transfer type */ 

file transfer type */ 

name of file transfer structure */ 

file transfer structure */ 

name of file transfer format */ 

file transfer format */ 

name of file transfer mode */ 

file transfer mode */ 

local byte size in ascii */ 

local byte size in binary */ 



/" name of host connected to */ 
/* service spec for tcp/ftp */ 



/"" non-local goto stuff for cmd scanner */ 



/* non-local goto stuff for cmd scanner */ 



extern char 
extern int 
extern char 

extern int 



line[]; /" input 

marge; 

**margv; 

options ; 



line buffer */ 

/" count of arguments on input line */ 

/" args parsed from input line */ 

/* used during socket creation *l 



/* 

* Format of command table. 

*/ 
struct cmd { 

char * c name ; 



/* name of command */ 
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57 




58 




59 




60 




61 


}; 


62 




63 


ex 


64 


ex 


65 


ex 



char *c_help; /* help string */ 

char c bell; /* give bell when command completes */ 

char c~conn; /* must be connected to use command */ 

int (*c handlerX); /* function to call */ 



tern char *tail(); 
tern char ■>''remglob( ) ; 
tern int errno; 
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12 

13 

14 

15 
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/* <a(#)host_arp.h 1.3 5/14/85 */ 
/* 

Address structures for ARP ioctl calls 

*/ 

/* 

Ethernet Address 

*/ 

struct etr_addr { 

short ea_family; /* 

char ea_addr [ 6 ] ; 

char ea_extra[8]; /* 

}; 
/* 

Count ( for retrieving entire table ) 
*/ 

struct next_addr { 

short nxt_family; /* 

long nxt_count; /* 

char nxt_extra[ 10] ; /* 

}; 



to match sockaddr structure 

/* interesting part */ 

to match sockaddr structure 



to match sockaddr structure 

interesting part */ 

to match sockaddr structure 
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1 /* @(#)in.h 1.3 4/12/85 */ 
2 

3 /* 

4 * GAP 1/11/85: WARNING - This file is included by both host 

5 * and board code. Make changes with extreme caution, and test 

6 * effects on both the host and board sides. 

7 */ 
8 

9 /* 

10 * Constants and structures defined by the internet system, 

11 * Per RFC 790, September 1981. 

12 */ 
13 

14 /* 

15 * Protocols 

16 */ , i . / 
#define IPRO ICMP 1 /* control message protocol -/ 



#define IPPROTO_GGP 2 /* gateway'2 (deprecated; * I 

#define IPR0_TCP 6 /* tcp */ 

#define IPRO_PUP 12 /* pup */ 

#define IPRO UDP 17 /* user datagram protocol */ 



17 

18 _.-- 

19 #define IPRO TCP 6 /* tcp */ 
20 
21 
22 

23 #define IPRO_RAW 255 /* raw IP packet */ 

24 #define IPR0_MAX 256 
25 

26 /* 

27 * Port/socket numbers: network standard functions 

28 */ 

29 #define IPPORTECHO 7 

30 #define IPRT_DISCARD 9 

31 #define IPRT_SYSTAT 11 

32 #define IPPORT_DAYTIME 13 

33 #define IPRT_NETSTAT 15 

34 #define IPRT_FTP 21 

35 #define IPPORT_TELNET 23 

36 #define IPPORT_SMTP 25 

37 #define IPRTJTIMESERVER 37 

38 #define IPPORT_NAMESERVER 42 

39 #define IPPORT_WHOIS 43 

40 #define IPPORTMTP 57 
41 

42 /* 

43 * Port/socket numbers: host specific functions 

44 */ 

45 #define IPRTJTFTP 69 

46 #define IPRT_RJE 77 

47 #define IPPORTFINGER 79 

48 #de£ine IPRT_TTYLINK 87 

49 #define IPRT_SUPDUP 95 
50 

51 /* 

52 * UNIX TCP sockets 

53 */ 

54 #define IPRT_EXECSERVER 512 

55 #define IPPORT_LOGINSERVER 513 

56 #define IPPORT CMDSERVER 514 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



UNIX UDP sockets 



/* 

*/ 
#define IPPORT_BIFFUDP 512 

#define IPRT_WHOSERVER 513 

/* 

* Ports < IPPORT_RESERVED are reserved for 

* privileged processes (e.g. root). 
*/ 



#define IPPORT RESERVED 



/* 



1024 



>v Link numbers 

*/ 
#define IMPLK_IP 155 

#define IMPLKJLOWEXPER 156 
#define IMPLINK_HIGHEXPER 158 

/* 

* Internet address (old style... should be updated) 

*/ 
struct in addr { 



in_addr 
union { 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

}; 



} S_un; 

s_addr 

s_host 

s_net 

s_imp 

s_impno 

s_lh 

S baddr 



struct { char sbl ,s_b2,s_b3,s_b4; } S_un_b; 
struct { unsigned short s_wl,s_w2; } S_un_w; 
long S_addr; 

S_un.S_addr /* can be used for most tcp & ip code */ 

S_un.S_un_b.s_b2 /* host on imp */ 

S_un.S_un_b.s_bl /* network */ 

S_un.S_un_w.s_w2 /* imp */ 

S_un.S_un_b.s_b4 /* imp # */ 

S_un.S_un_b.s_b3 /* logical host */ 

S un.S un b 



/* 



Macros for dealing with Class A/B/C network 
numbers. High 3 bits of uppermost byte indicates 
how to interpret the remainder of the 32-bit 
Internet address. The macros may be used in time 
time critical sections of code, while subroutine 
versions also exist use in other places. 



*/ 
/* 

* GAP 1/10/85: Apparently these are designed to work on internet 
,v addresses which reside in network order in RAM, if regarded as 

- a byte string. Be careful, because 4.2BSD defines just one 

" version of these macros, which works on internet addresses only 

v " after they are swapped into proper order (in a CPU register) 

* by ntohl( ) . 
*/ 

/" GAP 1/10/85: Note fancy footwork below to share header with board code */ 
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114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 



#ifdef ONBOARD 
#define IN_CLASSA 
#define INCA_NET 
#define INCA_LNA 
#define INCB 
#de£ine INCB_NET 
#define INCB_LNA 
#define INCC_NET 
#define INCC_LNA 
#endif 

#ifndef ONBOARD 



/* board make does not define MACHINE type */ 
0x00800000L 

8 bits of net # */ 



OxOOffOOOOL 
OxffOOffffL 
0x00400000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffOOffL 
OxOOOOffOOL 



/* 

/* 
/* 



16 bits of net # */ 
24 bits of net # */ 



/* board make does not define MACHINE type */ 



#ifdef VAX 

#define IN_CLASSA 0x00000080 

#define INCANET OxOOOOOOff 

#define INCA_LNA OxffffffOO 

#define INCB 0x00000040 

^define INCB_NET 

#define INCB_LNA 

#define INCC_NET 

#define INCC_LNA 

#endif 

#ifdef PDP11 

#define IN_CLASSA 

#define INCA_NET 

#define INCA_LNA 

#define INCB 

#define INCB_NET 

#define INCB_LNA 

#define INCC_NET 

#define INCC_LNA 

#endif 

#ifdef 18086 

#define IN_CLASSA 

#define INCA_NET 

#define INCA_LNA 

#define INCB 0x00000040 

#define INCB_NET OxOOOOffff 

#define INCB_LNA 

#define INCC_NET 

#define INCC_LNA 

#endif 

#ifdef M68000 

#define IN_CLASSA 

#define INCA NET 



/* 8 bits of net # */ 



OxOOOOffff 


/* 


16 bits of net # */ 


OxffffOOOO 






OxOOffffff 


/* 


24 bits of net # */ 


OxffOOOOOO 







/* Also 8086 XENIX V7 C */ 
0x00800000L 



OxOOffOOOOL 
OxffOOffffL 
0x00400000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffOOffL 
OxOOOOffOOL 



/* 
0x00000080 
OxOOOOOOff 
OxffffffOO 



OxffffOOOO 
OxOOffffff 
OxffOOOOOO 



/* 8 bits of net # */ 

/* 16 bits of net # */ 
/* 24 bits of net # */ 

XENIX 3.0, Lattice C */ 

/* 8 bits of net # */ 



/* 


16 bits of net # 


*/ 


/* 


24 bits of net # 


*/ 



#define INCA_LNA 
#define INCB 
#define INCB_NET 
#define INCB_LNA 
#define INCC_NET 
#define INCC_LNA 
#endif 

#ifdef Z8000 
#define IN_CLASSA 
#define INCA NET 



0x80000000L 
OxffOOOOOOL 
OxOOffffffL 
0x40000000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffffOOL 
OxOOOOOOffL 



/* 8 bits of net # */ 

/* 16 bits of net # */ 
/* 24 bits of net # */ 



0x80000000L 
OxffOOOOOOL /* 8 bits of net # */ 
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170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 



#define INCA_LNA 
#define INCB 
#define INCB_NET 
#define INCB_LNA 
#define INCC_NET 
#define INCC_LNA 
#endif 

#endif ONBOARD 



OxOOffffffL 
0x40000000L 
OxffffOOOOL 
OxOOOOffffL 
OxffffffOOL 
OxOOOOOOffL 



/* 16 bits of net # */ 
/* 24 bits of net # */ 



/* board make does not define MACHINE type */ 



#define IN_NETOF(in) \ 

(((in).s_addr&IN_CLASSA) == ? (in) . s_addr&INCA_NET : \ 

((in).s_addr&INCB) == ? (in) . s_addr&INCB_NET : \ 
( in ) . s_addr&INCC_NET ) 
#define IN_LNAOF(in) \ 

(((in).s_addr&IN_CLASSA) == ? (in) . s_addr&INCA_LNA : \ 

((in).s_addr&INCB) == ? (in) ,s_addr&INCB_LNA : \ 
(in).s addr&INCC LNA) 



#define INADDR ANY 



/* 



0x00000000 



- Socket address, internet style. 
*/ 
struct sckadr_in { 

short sin_family; 
unsigned short sin_port; 
struct in_addr sin_addr; 
char sin zero[8]; 

}; 

#ifdef KERNEL 

long in_netof (),in_lnaof (); 

#endif 
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1 


/* 






2 


if 


filename: 


INIT.H 


3 


* 


/ 




4 








5 


/* 






6 


* 


Structure us 


ed for initiali: 


7 


* 


/ 




8 








9 


/* 


some of the 


dummy entries a 


10 








11 


struct init ms 


g # { 


12 




short 


im newstyle; 


13 




char 


im version[4] ; 


14 




char 


im result; 


15 




char 


im mode; 


16 




char 


im hdfo[2] ; 


17 




char 


im junk[3]; 


18 




char 


im addrmode; 


19 




char 


im dummy2 ; 


20 




char 


im mmsize; 


21 




char 


im byteptn[4] ; 


22 




Ushort 


im wordptn[2] ; 


23 




long 


im longptn; 


24 




char 


im mmap[20] ; 


25 








26 




short 


im lOloff; 


27 




short 


im lOlseg; 


28 




char 


im nproc; 


29 




char 


im nmb; 


30 




char 


im nslots; 


31 




char 


im nhosts; 


32 








33 


/* 


' "host to exos" stuff */ 


34 








35 




long 


im h2exqaddr; 


36 




short 


im h2exoff; 


37 




char 


im h2extype; 


38 




char 


im h2exvalue; 


39 




long 


im h2exaddr; 


40 








41 


/* 


r "exos to host" stuff */ 


42 








43 




long 


im ex2hqaddr; 


44 




short 


im ex2hoff; 


45 




char 


im ex2htype; 


46 




char 


im ex2value; 


47 




long 


im ex2haddr; 


48 


}; 


i 




49 








50 


1* 


f im mode */ 




51 








52 


# 


define EXOS 


LINKMODE 


53 


# 


define EXOS~ 


HOSTLOAD 1 


54 


# 


define EXOS" 


NETLOAD 2 



only. 



to byte swapping */ 



/* new style init msg? v 
/* version to the hardware 
/* completion code *7 
/* set to link moce (0) 
/* host data format option 



*/ 



*/ 



*/ 



/* host address mode 



*/ 



/* memory map size (returned) */ 

/* data order byte pattern */ 

/* data order word pattern */ 

/" data order long pattern */ 

/* (rest of) memory map (returned)"/ 



/* movable block offset */ 
/" movable block segment */ 
/" number of exos 101 processes 
/" number of exos 101 mailboxes 
/" number of address slots */ 
/* number of hosts == 1 */ 



*/ 
*/ 



/* host to exos msg a address */ 
/* offset from base of actual q ""/ 
/* interrupt type for h2ex msg q */ 
/* interrupt value */ 
/" interrupt address */ 



/" exos to host msg q address *7 
/* offset from base of actual q */ 
/* interrupt type for ex2h msg q */ 
/* interrupt value */ 
/* interrupt address */ 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 
/* 



@(#)netdb.h 1.3 3/25/85 */ 

Structures returned by network 
data base library. All addresses 
are supplied in host order, and 
returned in network order (suitable 
for use in system calls). 



*/ 
struct hostent { 



}; 
/* 



char *h_name ; 

char **h_aliases; 

int haddrtype; 

int h_length; 

char "h addr; 



/* official name of host */ 
/" alias list */ 
/* host address type */ 
/* length of address */ 
/* address */ 



Assumption here is that a network number 
fits in 32 bits — probably a poor one. 



*/ 
struct 



}; 



netent { 

char 

char 

int 

long 



*n name ; 
**n_aliases; 
n_addrtype; 
n net; 



struct servent { 



}; 



char "sname; 
char **s_aliases; 
unsigned short s_port; 
char *s proto; 



struct protoent { 



}; 



char "p_name ; 
char """p_aliases ; 
int p proto; 



/* official name of net */ 
/* alias list */ 
/* net address type */ 
/* network # */ 



/* official service name */ 
/" alias list */ 

/* port # */ 
/* protocol to use */ 



/* official protocol name */ 
/* alias list */ 
/* protocol # */ 



#define ghbname gethbname 
#define ghbaddr gethbaddr 
#define gethostent gethent 
#define sethostent sethent 
#define endhostent endhent 

#define gnbname getnbname 

^define gnbaddr getnbaddr 

#define getnetent getnent 

#define setnetent setnent 

#define endnetent endnent 

#define gsbname getsbname 
#define gsbport getsbport 
#define getservent getsent 
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57 #define setservent setsent 

58 #define endservent endsent 
59 

60 #define getpbname gpbname 

61 #define getpbnumber gpbnumber 

62 #define getprotoent getpent 

63 #define setprotoent setpent 

64 #define endprotoent endpent 
65 

66 #define inet_lnaof inetgln 

67 #define inet_netof inetgnet 
68 

69 

70 struct hostent *ghbname(), *ghbaddr(), *gethostent( ) ; 

71 struct netent *gnbname( ) , "gnbaddrO, *getnetent( ) ; 

72 struct servent *gsbname( ) , ^gsbportC ) , *getservent( ) ; 

73 struct protoent *gpbname( ) , "gpbnumber ( ) , *getprotoent( ) ; 
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1 /* @(#)route.h 1.6 5/7/85 */ 
2 

3 /* 

4 * GAP 1/11/85: WARNING - This file is included by both host 

5 * and board code. Make changes with extreme caution, and test 

6 " effects on both the host and board sides. 

7 */ 
8 

9 /* 

10 * Kernel resident routing tables. 

11 * 

12 * The routing tables are initialized at boot time by 

13 >v making entries for all directly connected interfaces. 

14 * Routing daemons can thereafter update the routing tables. 

15 * 

16 * TODO: 

17 " keep statistics 

18 */ 
19 

20 /* 

21 * A route consists of a destination address and a reference 

22 * to a routing entry. These are often held by protocols 

23 * in their control blocks, e.g. inpcb. 

24 */ 

25 struct route { 

26 struct rtentry *ro rt; 

27 struct sockaddr rodst; 

28 #ifdef notdef 

29 caddr_t ro_pcb; /* not used yet */ 

30 #endif 

31 }; 

32 #ifdef KERNEL 

33 /* 

34 * The route ' ' routetoif ' ' is a special atom passed to the output routines 

35 * to implement the SO_DONTROUTE option. 

36 */ 

37 struct route routetoif; 

38 #endif 
39 

40 /* 

41 * We distinguish between routes to hosts and routes to networks, 

42 " preferring the former if available. For each route we infer 

43 " the interface to use from the gateway address supplied when 

44 * the route was entered. Routes that forward packets through 

45 * gateways are marked so that the output routines know to address the 

46 " gateway rather than the ultimate destination. 

47 * 

48 ,v AA - 4/11/85: The rtentry structure below has been set up 

49 * so that it it compatible with the host, board 

50 " and machines such as VAX that like 

51 * to do long alignments. 

52 * !!! DO NOT FIDDLE WITH THIS STRUCTURE UNLESS YOU 

53 * ! ! ! UNDERSTAND THIS 

54 */ 

55 struct rtentry { 

56 struct sockaddr rt dst; /* key */ 
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57 




struct 


sockaddr rt gateway; 


/* 


58 




struct 


rtentry *rt next; 


/* 


59 


#ifdef 


PDP11 






60 




short 


dummy; 


/* 


61 


#endi£ 








62 


#ifde£ 


xenix286 






63 




short 


dummy; 


/* 


64 


#endif 








65 




u long 


rt use; 


/* 


66 




struct 


if net *rt ifp; 


/* 


67 


#ifde£ 


PDP11 






68 




short 


dummyx ; 


/* 


69 


#endif 








70 


#ifde£ 


xenix286 






71 




short 


dummyx ; 


/* 


72 


#endif 








73 




char 


rt flags; 


/* 


74 




char 


rt refcnt; 


/* 


75 




u short 


rt hash; 


/* 


76 


}; 








77 


#def ine 


RTHASHSIZ 7 




78 


#ifdef 


ONBOARD 






79 


struct; 


rtentry 


*rthost[RTHASHSIZ] = 


o; 


80 


struct 


rtentry 


*rtnet[ RTHASHSIZ ] = 


o; 


81 


#endif 








82 










83 


#def ine 


RTF UP 


0x1 


/* 


84 


#def ine 


RTF GATEWAY 0x2 


/* 


85 


#def ine 


RTFHOST 0x4 


/* 


86 










87 


#def ine 


RTFREE(rt) \ 




88 




if (Crt! 


)->rt refcnt == 1) \ 




89 






rtfree(rt); \ 




90 




else \ 






91 






(rt)->rt refcnt — ; 




92 











value */ 

next pointer */ 

host ptr=4; board ptr =2 */ 



host ptr=4; board ptr =2 *7 

raw # packets forwarded */ 

the answer: interface to use */ 

host ptr=4; board ptr =2 */ 



host ptr=4; board ptr =2 */ 

up/down?, host/net */ 
# held references */ 
to speed lookups */ 



route useable */ 
destination is a gateway */ 
host entry (net otherwise) */ 
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1 /* 

2 * These are the DIC and DPB lengths of the Executive directives 

3 */ 
4 

5 #define RSX 1 
6 

7 # define QIO 06001 

8 # define QIOW 06003 

9 # define ALUN 02007 

10 # define WTSE 01051 

11 # define GTIM 01075 

12 # define SPWN 06413 

13 # define SDRC 03615 

14 # define SDAT 02507 

15 # define STOP 0603 

16 # define STSE 01207 

17 # define RCVD 02113 

18 # define RCVX 02115 

19 # define RCST 02213 

20 # define MRKT 02427 

21 # define GTSK 01077 

22 # define SREX 01647 

23 # define EXST 01035 

24 # define USTP 01605 

25 # define SETF 01041 

26 # define CLEF 01037 

27 # define ENAR 0545 

28 # define DSAR 0543 

29 # define DSCP 0537 

30 # define ENCP 0541 

31 # define GLUN 01405 

32 # define RQST 03413 

33 /* 

34 * QIO function codes 

35 * 

36 */ 
37 

38 # define IORLB 01000 

39 # define IO_RVB 010400 

40 # define IO_RTT 05001 

41 # define IO_WVB 011000 

42 # define IODET 002000 

43 # define IOKIL 000012 

44 # define IOWLB 00400 

45 # define IO_ATA 01410 

46 # define SF_SMC 02440 

47 # define SF_GMC 02560 

48 # define TC_FDX 064 

49 # define TCACR 024 

50 /" Executive return status */ 
51 

52 # define IS_CLR 00 /* event was clear -/ 

53 # define IS_SUC 01 /* operation successful */ 

54 # define IS~SET 02 /* event flag was set */ 
55 

56 # define IE BAD -01 /* bad parameters -/ 
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57 # define IE_IFC -02 /* illegal function */ 

58 # define IE_DNR -03 /* device not ready */ 

59 # define IE_SPC -06 /* illegal bufferr */ 

60 # define IE_ACT -07 /* task not active */ 

61 # define IE_ABO -15 /* request aborted */ 

62 # define IE_PRI -16 /* priv or channel error*/ 

63 # define IE_DFU -24 /* no free channel */ 

64 # define IE_FHE -59 /* fatal hardware error */ 

65 # define IE_OFL -65 /* device offline */ 
66 

67 /* CSI CONTROL BLOCK OFFSETS AND BIT VALUES DEFINITIONS 

68 * 

69 */ 

70 #define CS_DIF 02 

71 #define CSDVF 04 

72 #define CS_EQU 040 

73 #define CS_INP 01 

74 #define CS_MOR 020 

75 #define CS_NMF 01 

76 #define CS_OUT 02 

77 #define CSWLD 010 

78 #define C_CMLD 02 

79 #define C_DEVD 06 

80 #define C_DIRD 012 

81 #define C_DSDS 06 

82 #define C_FILD 016 

83 #define C_MKW1 024 

84 #de£ine C_MKW2 026 

85 #define C_STAT 01 

86 #define C_SWAD 022 

87 #define C_TYPR 00 

88 #define A_GRP 00 

89 #define A_MBR 03 

90 #define A_LPRV 074 

91 #define A_SYDV 056 

92 #define TF_RAL 010 

93 /* 

94 C Portable routines. 

95 */ 

96 /* 

97 MCR relative parameters 

98 */ 

99 # define CMDSIZE 60 
100 

101 /* 

102 * terminal Input buffer structure 

103 */ 
104 

105 struct ttybuf { 

106 char linettyt 132] ; 

107 char "Cur_pos; 

108 int tsize; 

109 }; 

110 #define rsx 

111 #define SCRATCHFILE "." 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



/* @(#)socket.h 1.8 7/29/85 */ 
/* socket. h 4.16 



82/06/08 



*/ 



/* 



GAP 1/11/85: WARNING 



- This file is included by both host 

* and board code. Make changes with extreme caution, and test 

* effects on both the host and board sides. 
*/ 



#ifdef BSD4dot2 

#define accept 

#define connect 

#define gethostname 

#define receive 

#define select 

#define send 

#define socket 

#define socketaddr 

#define shutdown 

#define htonl 
#define htons 
#define ntohl 
#define ntohs 
#define swab 
#endif BSD4dot2 



exaccept 

exconnect 

ex_gethostname 

ex_receive 

ex_select 

ex_send 

exsocket 

ex_socketaddr 

ex_shutdown 

exhtonl 
ex_htons 
ex_ntohl 
ex_ntohs 
ex swab 



/* 



*/ 



Externally visible attributes of sockets. 



/* 



Socket types. 

The kernel implement these abstract (session-layer) socket 
services, with extra protocol on top of network services 
if necessary. 



*/ 

#define SOCK_STREAM 1 

#define SOCKDGRAM 2 

#define SOCK_RAW 3 

#define S0CK_RDM 4 

#define SOCK_ETH 5 

#define SOCK ICMP 6 



Option flags per-socket. 



/* 

*/ 

#define SO_DEBUG 0x01 

#define SO_ACCEPTCONN 0x02 

#define S0_D0NTLINGER 0x04 

#define SO_KEEPALIVE 0x08 

#define SO_DONTROUTE 0x10 

#define SOSMALL 0x20 

#define SO REUSEADDR 0x40 



/* stream socket */ 

/" datagram socket */ 

/* raw-protocol interface */ 

I* reliably-delivered message */ 

/* link-mode access to e-net packets */ 

/- access to ICMP */ 



/" turn on debugging info recording */ 

!"•' willing to accept connections */ 

/" don't linger on close */ 

/"' keep connections alive */ 

/"" just use interface addresses */ 

/* use smaller (1/2K) buffer quota */ 

/* permit local port ID duplication */ 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



/* 



Generic socket protocol format. 



" Each process is normally operating in a protocol family, 

* whose protocols are used unless the process specifies otherwise. 
,v Most families supply protocols to the basic socket types. When 

* protocols are not present in the family, the higher level (roughly 

* ISO session layer) code in the system layers on the protocols 

* to support the socket types. 
*/ 

struct sockproto { 

short sp_family; /» protocol family */ 

short sp protocol; /* protocol within family */ 

1; 



#define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define 
#def ine 
#def ine 



PFUNSPEC 

PFJJNIX 

PF_INET 

PF_IMPLINK 

PF_PUP 

PF_CHAOS 

PFOISCP 

PF_NBS 

PF_ECMA 

PF_DATAKIT 

PF CCITT 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



/* unspecified */ 

/" UNIX internal protocol */ 

/* internetwork: UDP, TCP, etc. */ 

/* imp link protocols */ 

/* pup protocols: e.g. BSP */ 

/* mit CHAOS protocols */ 

/* ois communication protocols */ 

/" nbs protocols */ 

/* european computer manufacturers 

/* datakit protocols */ 

/* CCITT protocols, X.25 etc */ 



/* 



* Generic socket address format 



* Each process is also operating in an address family, whose 

* addresses are assigned unless otherwise requested. The address 

* family used affects address properties: whether addresses are 

* externalized or internalized, location dependent or independent, etc. 

* The address can be defined directly if it fits in 14 bytes, or 
" a pointer and length can be given to variable length data. 

* We give these as two different structures to allow initialization. 
*/ 

struct sockaddr { 

short sa_family; /* address family */ 

char sa_data[l4]; /* up to 14 bytes of direct address */ 

}; 
/* 

" The first few address families correspond to protocol 

* families. Address families unrelated to protocol families 

* are also possible. 
*/ 

#define AFJJNSPEC 

#define AF_UNIX 1 

#define AF_INET 2 

#define AF_IMPLINK 3 

#define AF_PUP 4 

#define AF_CHA0S 5 

#define AF_0ISCP 6 

#define AF NBS 7 



/" unspecified */ 

/* local to host (pipes, portals) */ 

/* internetwork: UDP, TCP, etc. */ 

/* arpanet imp addresses */ 

/" pup protocols: e.g. BSP */ 

/* mit CHAOS protocols */ 

/* ois communication protocols */ 

/" nbs protocols */ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 



#define AF_ECMA 8 

#define AF_DATAKIT 9 

#define AF_CCITT 10 

#define AF_ETHER 11 

#define AF_C0UNT 12 
#define AF_ETYPEFILTER 13 

#define AF MAX 14 



/* european computer manufacturers */ 

/" datak.it protocols */ 

/* CCITT protocols, X.25 etc */ 

/* Ethernet Address */ 

/* A count */ 

/* Ethernet filter */ 



/* 

mwp: 

Sockaddr structure for link mode access to EXOS board. 

*/ 

#ifndef u_short 

#defin.e u_short unsigned short 

#endif 

#define sockaddr_link sad_link /* for compiler */ 
struct sockaddr link { 



short 

u_short 

short 
#ifdef ONBOARD 

struct enreq 
#endif 

1; 



sl_family; 
sl_types[6] ; 
slzero; 

"si pndpkt ; 



/* a part-empty pkt on this socket ♦"/ 



/" a handy macro */ 

#define saptr(x) ((struct sockaddrlink *)(((struct socket * )(x) )->so_pcb) ) 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



/* 



* filename: SOIOCTL.H 
*/ 



/* 



This file defines all 
commands. These value 
hence should not be a 



the equate 
s are actua 
ltered. 



symbols for socket ioctl 
lly passed onto to the board, 



*/ 



#define FIONREAD 
#define FIONBIO 
#define FIOASYNC 
#define TIOCPKT 
#define TIOCPKT 
#define TIOCPKT" 
#define TIOCPKT" 
#define TIOCPKT" 
#define TIOCPKT" 
#define TIOCPKT" 
#define TIOCPKT" 

#define SIOCDONE 
#define SIOCSKEEP 
#define SIOCGKEEP 
#define SIOCSLINGER 
#define SIOCGLINGER 
#define SIOCSENDOOB 
#define SIOCRCVOOB 
#define SIOCATMARK 
#define SIOCSPGRP 
#define SIOCGPGRP 
#define SIOCADDRT 
#define SIOCDELRT 
#define SIOCCHGRT 



(127) 




(126) 




(125) 




(112) 




DATA 




FLUSHREAD 


FLUSHWRITE 


STOP 




START 

WnOTHD 




JNUalUr 
DO STOP 




(0) 


/* 


(1) 


/* 


(2) 


/* 


(3) 


/* 


(4) 


/* 


(5) 


/* 


(6) 


/* 


(7) 


/* 


(8) 


/* 


(9) 


/* 


(10) 


/* 


(11) 


/* 


(12) 


/* 



/* on pty: set/clear packet mode */ 

0x00 /* data packet */ 

0x01 /* flush packet */ 

0x02 /* flush packet * I 

0x04 / v * stop output */ 

0x08 /" start output */ 

0x10 /* no more "S, "Q */ 

0x20 /* now do "S "Q */ 

shutdown read/write on socket */ 

set keep alive */ 

inspect keep alive */ 

set linger time */ 

get linger time */ 

send out of band */ 

get out of band */ 

at out of band mark? */ 

set process group */ 

get process group */ 

add a routing table entry */ 

delete a routing table entry */ 

change a routing table entry */ 
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1 

2 








3 








4 


#def ine 


ELMNTBUSY 


1 


5 


#def ine 


ELMNTFREE 





6 
7 


#def ine 


NULLPOINTER 





8 
9 


#def ine 


MAXBUF 


2 


10 


#def ine 


BUFSIZE 


1024 


11 


#def ine 


MAXIOSB 


10 


12 


#def ine 


MAXSOICTL 


5 


13 








14 


#def ine 


SOLUN 20 




15 


#define 


SOEFN 1 




16 








17 


#def ine 


NOSOBUF 


-10 


18 


#def ine 


NOSOIOSB 


-11 


19 


#def ine 


NOSOICTL 


-12 


20 


#define 


NOFREESOCKET 


-13 


21 









/* the element is busy */ 
/* the element is free */ 
/* it is pointing to null element */ 



/* max no of transfer buffer */ 
/* size of each such buffer */ 
/* max no of 10 status block */ 
/* max no of SOictl structure */ 

/* EXOS0 LUN */ 
/* efn */ 
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1 typedef struct { int r[l]; } * physadr; 

2 typedef long daddrt; 

3 typedef char * caddr t; 

4 typedef unsigned long memt; 

5 typedef unsigned short ushort; 

6 typedef unsigned char uchar t; 

7 typedef ushort ino t; 

8 typedef short cnt t; 

9 typedef long timet; 

10 typedef long label_t[l3]; 

11 typedef short dev t; 

12 typedef long off t; 

13 typedef long paddr t; 



/* regs d2-d7, a2-a7, 



pc 



*/ 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



/* 
@(#)xctype.h 



1.3 5/31/85 



character mappings 
*/ 



#de£ine 
#define 
#def ine 
#define 
#def ine 
#define 
#def ine 
#de£ine 



01 

02 

04 

010 

020 

040 

0100 

0200 



extern char _xctype[] 

#define isalpha(c) 
#define isupper(c) 
#define islower(c) 
#de£ine isdigit(c) 
#de£ine isxdigit(c) 
#define isspace(c) 
#de£ine ispunct(c) 
#de£ine isalnum(c) 
#define isprint(c) 
#define isgraph(c) 
#define iscntrl(c) 
#define isascii(c) 
#de£ine toupper(c) 
#define _tolower(c) 
#define toascii(c) 



( (_xctype+l 
((_xctype+l 
( (_xctype+l 
( (_xctype+l 
( (_xctype+l 
((_xctype+l 
((_xctype+l 
( (_xctype+l 
((_xctype+l 
((_xctype+l 
((_xctype+l 
( (unsigned) 
( (islower(c 
((isupper(c 
((c)&0177) 



[c]&(_u|_D) 

[c]&_U) 

[c]&_D 

[c]&_N) 

Ec]&_X) 

[c]&_S) 

[c]&_P) 

[c]&(_U|_L|_N)) 

[c]&(_P|_U|_L|_N|_B)) 

[c]&(_P|_U|_L|_N)) 

[c]&_C) 

c)<=0177) 

)? (cO-V + 'A 1 : (c)) 



)? (c)- , A , + l 



(c)) 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



/* 

@(#)xerrno.h 1.3 3/25/85 

Error values for xgenlib and xoslib. 

Some of these errors will make littl 

Other error numbers should be added 

sense on Unix systems. 

*/ 



#define XEPERM 
#define XENOENT 
#define XESRCH 
#define XEINTR 
#define XEIO 
#define XENXIO 
#define XE2BIG 
#define XENOEXEC 
#define XEBADF 
#define XECHILD 
#define XEAGAIN 
#define XENOMEM 
#define XEACCES 
#define XEFAULT 
#define XENOTBLK 
#define XEBUSY 
#define XEEXIST 
#define XEXDEV 
#define XENODEV 
#define XENOTDIR 
#define XEISDIR 
#define XEINVAL 
#define XENFILE 
#define XEMFILE 
#define XENOTTY 
#define XETXTBSY 
#define XEFBIG 
#define XENOSPC 
#define XESPIPE 
#define XEROFS 
#define XEMLINK 
#define XEPIPE 

/* math software 
#define XEDOM 
#define XERANGE 



*/ 



-1 
-2 
-3 
-4 
-5 
-6 
-7 

-9 
-10 

-11 
-12 
-13 
-14 

-16 
-17 
-18 
-19 

-21 
-22 
-23 
-24 
-25 

-27 
-28 
-29 
-30 
-31 
-32 



-33 

-34 



-8 



-15 



-20 



-26 



e sense on non-Unix systems, 
for errors which make little 



/" Not owner */ 

/* No such file or directory */ 

/" No such process */ 

I* Interrupted system call */ 

/* I/O error *7 

/* No such device or address */ 

/* Arg list too long */ 

/* Exec format error */ 
/" Bad file number */ 
/" No children */ 
/" No more processes */ 
/* Not enough core */ 
/"' Permission denied */ 
/" Bad address */ 

/* Block device required "''/ 
I* Mount device busy */ 
/* File exists */ 
/* Cross-device link */ 
/* No such device */ 

/" Not a directory"/ 
/* Is a directory *l 
I* Invalid argument */ 
/* File table overflow */ 
/" Too many open files */ 
/* Not a typewriter */ 

/* Text file busy */ 
/" File too large *7 
/" No space left on device */ 
/" Illegal seek */ 
/ , '" Read-only file system */ 
/* Too many links */ 
/* Broken pipe */ 



/* interupt and non-blocking io */ 
#define XEWOULDBLOCK -35 
#define XEINPROGRESS -36 
#define XEALREADY -37 

/" argument errors */ 

#define XENOTSOCK -38 

#define XEDESTADDRREQ -39 

#define XEMSGSIZE -40 

#define XEPROTOTYPE -41 

#define XENOPROTOOPT -42 
#define XEPROTONOSUPPORT -43 



/* Argument too large */ 
/* Result too large */ 



/" Operation would block */ 

I* Operation now in progress */ 

/* Operation already in progress */ 



/"* Socket operation on non-socket */ 
/* Destination address required */ 
/* Message too long */ 
/* Protocol wrong type for socket */ 
/* Protocol not available */ 

/" Protocol not supported */ 
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57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 



#define XESOCKTNOSUPPORT 
#define XEOPNOTSUPP -45 
#define XEPFNOSUPPORT -46 
#define XEAFNOSUPPORT -47 
#define XEADDRINUSE -48 
#define XEADDRNOTAVAIL -49 



-44 



/* operational errors 
#define XENETDOWN 
#define XENETUNREACH 
#define XENETRESET 
#define XECONNABORTED 
#define XECONNRESET 
#define XENOBUFS 
#define XEISCONN 
#define XENOTCONN 
#define XESHUTDOWN 
#define XETOOMANYREFS 
#define XETIMEDOUT 
#define XECONNREFUSED 

/* random errors */ 
#define XELOOP 
#define XENAMETOOLONG 
#define XEHOSTDOWN 
#define XEHOSTUNREACH 
#define XSYSERR 



*/ 



-50 

-51 
-52 
-53 
-54 



-57 
-58 
-59 
-60 
-61 



-62 
-63 
-64 
-65 
-66 



■55 
•56 



/* Socket type not supported */ 
/* Operation not supported on socket */ 
/* Protocol family not supported */ 
/* Address family not supported by protocol fam 
/* Address already in use */ 
/" Can't assign requested address */ 



Network is down */ 

Network is unreachable */ 

Network dropped connection on reset */ 

Software caused connection abort */ 

Connection reset by peer */ 

/* No buffer space available */ 
/* Socket is already connected */ 

Socket is not connected */ 

Can't send after socket shutdown */ 

Too many references: can't splice */ 

Connection timed out */ 

Connection refused */ 



/* Too many levels of symbolic links */ 

/" File name too long */ 

/* Host is down */ 

/" No route to host -/ 

/* unspecified os specific error */ 
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1 #include <rsxos.h> 

2 #include <xstdio.h> 

3 #include <xctype.h> 

4 #include <xerrno.h> 

5 #define xstrncpy _ncpy 

6 #define xstrncmp _ncmp 

7 #define xstrncat _ncat 
8 

9 #de£ine PTOLBYTE( cp ) (cp = cp) 
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1 /* 

2 this file declares password structre 

3 */ 

4 #define MAXUSERNAME 10 

5 #define MAXPAS SWORD 8 

6 #define UICSIZE 10 

7 struct passwd { 

8 char login_uic[UICSIZE] ; 

9 char log_dev[6]; 

10 char cur_uic[UICSIZE] ; 

11 char cur_dev[6]; 

12 }; 
13 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 

55 

56 



/* 

@(#)xspecial.h 1.8 5/7/85 

flags for special files 

*/ 

#define FILE_NAME 50 

#define CURRENT_DIR 51 

#define H0ME_DIR 52 

#define CD_RELATIVE 53 

#define HM_RELATIVE 54 

#define UP_DIRECTORY 55 

/* 

flags for psuedo-file objects 

*/ 

#define LS 101 

#define LS_ARG 102 

#define LSLONG 103 

#define LSLONG_ARG 104 

#define PWD 105 

/* 

flags for file openning modes, 

*/ 

#define XFREAD 1 

#define XFWRITE 2 

#define XFAPPEND 8 

#define XFCREAT 0x80 
#de£ine XFTRUNC 0x100 
#define XFASCII 0x200 

/* 

Note: XFCREAT is a separate i 

mutually exclusive. 

*/ 



/* file name argument is to be used (as is) */ 

/* current directory */ 

/* user's initial location in file system */ 

/* name is relative to current directory */ 

/* name is relative to home directory */ 

/* parent directory (for xchdir) */ 



/* short directory listing */ 

/* short listing of named directory */ 

/" long directory listing */ 

/* long listing of named directory */ 

/"" return name of current directory */ 



/" open for reading */ 

/"* open for writing */ 

/* add to an existing file (FWRITE also 

must be set) */ 

/" create file, if it doesn't exist */ 

/* truncate file (FWRITE also must be set)-/ 

/* file is ascii (for systems which care) */ 

ssue from XFTRUNC and XFAPPEND, which are 



/* 

Information for FTP style files 

*/ 

#define RT_ASCII 
#define RTEBCDIC 
#define RT_IMAGE 
#define RT_LOCALBYTE 

#define TF_NONPRINT 
#define TF_TELNET 
#define TF_FORTRAN 

#define IS_FILE 
#define IS_REC0RD 
#define IS_PAGE 

#define TM_STREAM 
#define TM_BLOCK 
#define TM_COMPRESSED 

struct ftp attr { 



1 


h 


2 


h 


3 


/• 


4 


/•■ 


1 


/• 


2 


/• 


3 


/• 


1 


/ 


2 


/ 


3 


/ 


1 


/ 


2 


/ 


3 


/ 



ascii character set */ 
ebcdic character set */ 
uninterpretted bit stream */ 
wierd sized bytes */ 

no imbedded carriage control */ 

telnet style data */ 

1st collumn == carriage control */ 

Unstructured file */ 

FTP record internal structure */ 

FTP page internal structure "'"/ 

stream transmission */ 
block transmission */ 
data compressed */ 
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57 
58 
59 
60 

61 

62 

63 

64 

65 

66 

67 

68 

69 }; 

70 

71 /* 

72 Flags for setting terminal options with xsetterm. 

73 */ 



int rep_type; 

int format; 

int structure; 

int trans_mode; 

int byte sz; 



/* data repesentation one of: 

RT_ASCII, RT_EBCDIC, RT_IMAGE or 

RT_LOCALBYTE */ 
/* format for character files one of: 

TF_NONPRINT, TF_TELNET or 

TF_FORTRAN */ 
/* internal structure one of: IS_FILE, 

IS_REC0RD, IS_PAGE */ 
/* transmit ion mode one of: TM_STREAM, 

TM_BL0CK or TM_COMPRESSED */ 
/* byte size if represetation type 

is RT LOCALBYTE */ 



255 



/"" turn option on */ 

/* turn option off */ 

/-' local echo? * I 

/" driver handles line edit? */ 



/* maximum length for file names 
( system dependent ) */ 



74 #define X0N_STERM 

75 #define XOFF_STERM 

76 #define XECHO 

77 #define XLINE_EDIT 
78 
79 

80 #define MXNAMELEN 
81 
82 

83 #ifdef zilog 

84 /* 

85 * S8000 does setjmpO differently, and calls it setretO. 

86 * Do NOT call setretO from routine which declares register variables! 

87 */ 

88 #define xsetjmp(x) setret(x) 

89 #else 

90 #define xsetjmp(x) setjmp(x) /* Unix only */ 

91 #endif 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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52 
53 
54 
55 
56 



/* 
@(#)xstdio.h 



1.5 6/4/85 



Definitions for EXOS standard io objects 

(useful for porting code to non-unix systems) 

/* 

save space on systems with limited data segment size. 

*/ 
#ifdef xenix286 
#define XBUFSIZ 512 
#else 

#ifdef rsx 
#define XBUFSIZ 512 
#else 

#define XBUFSIZ 1024 
#endif 
#endif 



#def ine 
extern 



} 



_XNFILE 
struct 
int 
char 
char 
int 
short 
char 

struct _ 
struct 
char 
int 
int 
int 
int 
xiob[ XNFILE] 



20 

_xiobuf { 
_cnt ; 
*_ptr; 
*_base; 
_buf siz ; 

Iflag; 

_f ile; 

xiobuf *_succ; 

xiobuf "_pred; 

*_sys_id; 

_read)(); 

_write)(); 

_ioctl)(); 
close)( ) ; 



/* forward link (added) */ 

/* backward link (added) */ 

/* system specific identifier (added) */ 

/* field to be added */ 

/* field to be added */ 

/* field to be added */ 

/* field to be added */ 



#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#define _ 
#define XNULL 
#define XFILE 
#define XEOF 



XIOREAD 
XIOWRT 02 
XIONBF 04 
XIOMYBUF 
XIOEOF 020 
XIOERR 040 
XIOSTRG 
XIOLBF 0200 
XIORW 0400 
XPrimary 01000 



01 



010 



0100 



XUsed 



02000 


struct 
(-1) 



/" primary copy of object */ 
/* on if object is in use */ 



xiobuf 



#define xstdin (&_xiob[0]) 
#define xstdout (&_xiob[l]) 
#define xstderr (&_xiob[2]) 
#define xgetc(p) 



(~(p)-> cnt>=0? »(p)-> ptr++&0377: xfilbuf(p)) 
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57 #define xgetcharO xgetc(xstdin) 

58 #define xputc(x,p) ( — (p)->_cnt>=0? ( (int )(Mp)->_ptr++=(unsigned)(x) ) ) :_xf lsbf ( (unsign 

59 #define xputchar(x) xputc(x,xstdout ) 

60 #define xfeof(p) ( ( (p)->_f lag&_XI0E0F) !=0) 

61 #define xferror(p) (((p)->_f lag&XIOERR) !=0) 

62 #define xfileno(p) ((p)-> file) 
63 

64 extern int xnofuncO; 

65 XFILE *xodopen(); 

66 char *xogets(); 

67 char *xsprintf(); /* too painful to do right */ 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
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26 
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28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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41 
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56 



I* 

<a(#)ftpc.h 



1.2 4/11/85 



Header files for generic client side of FTP 
*/ 

#include <rsxos.h> 
#include <xstdio.h> 
#include <xctype.h> 
#include <xerrno.h> 
#include <xspecial.h> 
#include <socket.h> 
if/include <netdb.h> 



typedef int jmpbuf; 
#include <ftp.h> 
#include <in.h> 
#define SIOCDONE XNULL 
#define FIONBIO (126) 
#define appendhelp happend 
#define deletehelp hdelete 
#define disconhelp hdiscon 
#define mdeletehelp hmdelete 
#define renamehelp hrename 
#define statushelp hstatus 
#define structhelp hstruct 
#define renamecmd cmdrename 
extern xcloseO; 
extern int figit; 
extern int errno; 
extern long xpasstnetO; 
extern long xpassfnet(); 
#define VOID figit = (int) 



/* 



FTP global referrences. 



*/ 

^include "varpat.h" 

/* 

* Options and other state info. 

*/ 

extern int trace; 

extern int hash; 

extern int sendport; /* 

extern int 



extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern int 
extern char 
extern int 
extern char 



verbose; 

connected; 

fromatty; 

interactive; 

debug; 

bell; 

doglob; 

autologin; 

typename[32] ; 

type; 



/"" trace packets exchanged */ 
/* print # for each buffer transferred */ 
use PORT cmd for each data connection -'/ 

/"" print messages coming back from server */ 

I* connected to server "/ 

/"" input is from a terminal */ 

/" interactively prompt on m* cmds */ 

/'" debugging level */ 

/" ring bell on cmd completion */ 

/- glob local file names */ 

/* establish user account on connection */ 

/* name of file transfer type */ 

/" file transfer type */ 



structname[32] ; /* name of file transfer structure */ 
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57 


extern 


int 


stru; 


h 


58 


extern 


char 


formname[32] ; 


h 


59 


extern 


int 


form; 


h 


60 


extern 


char 


modename[32] ; 


h 


61 


extern 


int 


mode; 


h 


62 


extern 


char 


bytename[32] ; 


h 


63 


extern 


int 


bytesize; 


h 


64 










65 


extern 


char 


"hostname; 


h 


66 


extern 


struct 


servent *sp; 


h 


67 










68 


extern 


jmp buf 


: toplevel; 


h 


69 










70 


extern 


char 


line[200]; 


/• 


71 


extern 


int 


marge; 


/• 


72 


extern 


char 


"*margv; 


/• 


73 










74 


extern 


int 


options; 


/■ 


75 










76 


/* 








77 


" Format of c 


:ommand table. 




78 


*/ 








79 


extern 


struct 


cmd { 




80 




char 


*c name; 


/ 


81 




char 


"C help; 


/ 


82 




char 


c_bell; 


/ 


83 




char 


c conn; 


/ 


84 




int 


("C handler)(); 


/ 


85 


}; 








86 










87 


extern 


char "' 


'tailO; 




88 


extern 


char - ; 


''remglob( ); 




89 


extern 


int errno; 




90 











' ( file transfer structure */ 

,f name of file transfer format *7 

' f file transfer format */ 

* name of file transfer mode */ 

'* file transfer mode */ 

'* local byte size in ascii */ 

'" local byte size in binary */ 

'* name of host connected to */ 
'' service spec for tcp/ftp */ 

k non-local goto stuff for cmd scanner */ 

■' input line buffer -/ 

>v count of arguments on input line */ 

>v args parsed from input line */ 

k used during socket creation */ 



name of command */ 

help string "/ 

give bell when command completes */ 

must be connected to use command */ 

function to call *7 
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1 

2 /*@(#)varpat.h 1.8 4/11/85*/ 

3 

4 #define connected conned 

5 

6 #define connecthelp connhelp 

7 #define mdeletehelp mdelhelp 

8 #define receivehelp recehelp 

9 #define verbosehelp verbhelp 
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1 #ifndef lint 

2 static char sccsidU = 

3 " @(#)cmds.c 1.24 8/28/85"; 

4 #endif 
5 

6 /* 

7 * ftp User Program — Command Routines. 

8 */ 

9 ^include "ftpc.h" 
10 

11 extern char *globerr; 

12 extern char **xglob(); 

13 extern char **xmkarglist( ) ; 

14 extern short gflag; 

15 extern char *remglob(); 

16 extern char *getenv( ) ; 

17 extern char *xstrchr(); 

18 extern char *xstrrchr(); 

19 static char **glizept = (char **)0; 
20 

21 #de£ine BUFSIZ 1024 
22 

23 /* 

24 * Connect to peer server and 

25 * auto-login, if possible. 

26 */ 

27 setpeer(argc, argv) 

28 int argc; 

29 char *argv[ ] ; 

30 { 

31 struct hostent -host, -hookupO; 

32 int port; 

33 int madeargs = 0; 
34 

35 if (connected) { 

36 xoprintf (xstdout , 

37 "Already connected to %s, use close first. \n", 

38 hostname); 

39 return; 

40 } 

41 if (argc < 2) { 

42 xstrcat(line, " "); 

43 xoprintf (xstdout, "(to) ")*, 

44 xfflush( xstdout ); 

45 xgets(&line[xstrlen(line)]); 

46 argv = xmkarglist( line, &argc ); 

47 madeargs = 1; 

48 } 

49 if (argc < 2 || argc > 3) { 

50 xoprintf(xstdout, "usage: %s host-name LportJXn , argvLQJ); 

51 goto endspeer; 

52 } 

53 port = sp->s_port; 

54 if (argc > 2) { 

55 port = xatoi(argv[2] ) ; 

56 if (port <= 0) { 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

17 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



1 



} 



xoprintf (xstdout , M %s: bad port number — %s\n", 

argv[l], argv[2]); 
xoprintf (xstdout, "usage: %s host-name [port]\n", argv[0]); 
goto endspeer; 



port = xhtons(port) ; 

host = hookup(argv[ l] , port); 

if (host) { 

connected = 1; 

if (autologin && fromatty ) 
login(host ) ; 

1 
endspeer: 

if( madeargs ) 

xdealglob( argv ); 
} 



struct types { 

char "t_name; 

char "t_mode; 

int t_type; 

char "t_arg; 
} types[] = { 

{ "ascii", 

{ "binary", 

i image , 

{ "ebcdic", 

1 tenex , 





"A", 
ti-i-ii 

1 y 

tt-rtl 

1 J 

"E", 
"L", 



TYPE_A, }, 

TYPE_I, }, 

TYPE_I, }, 

TYPE_E, }, 

TYPE L, bytename }, 



87 }; 
/* 



" Set transfer type. 

*/ 
settype(argc, argv) 

char *argv[ ] ; 
{ 



register struct types *p; 
int comret; 

if (argc > 2) { 

char * v sep; 

xoprintf (xstdout , "usage: %s [", argv[0]); 

sep - ; 

for (p = types; p->t_name; p++) { 

xoprintf (xstdout ,"%s%s", sep, p->t_name); 

if (^sep == ' ') 



*> • 



sep = 

} 

xoprintf (xstdout ," ]\n"); 

return; 

} 

if (argc < 2) { 

xoprintf (xstdout , "Using %s mode to transfer files. \n", typename); 
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113 return; 

114 ] 

115 for (p = types; p->t_name; p++) 

116 if (xstrcmp(argv[l] , p->t name) == 0) 

117 break; 

118 if (p->t_name == 0) { 

119 xoprintf (xstdout ,"%s: unknown modeXn", argv[l]); 

120 return; 

121 } 

122 if ((p->t_arg != XNULL) && (*(p->t_arg) != 'XO')) 

123 comret = command ("TYPE %s %s", p->t_mode, p->t_arg); 

124 else 

125 comret = command ("TYPE %s", p->t_mode); 

126 if (comret == COMPLETE) { 

127 xstrcpy(typename, p->t_name); 

128 type = p->t_type; 

129 } 

130 } 
131 

132 /* 

133 " Set binary transfer type. 

134 */ 

135 /*VARARGS*/ 

136 setbinaryO 

137 { 
138 

139 calKsettype, "type", "binary", 0); 

140 } 
141 

142 /* 

143 " Set ascii transfer type. 

144 */ 

145 /*VARARGS*/ 

146 setasciiO 

147 { 
148 

149 calKsettype, "type", "ascii", 0); 

150 } 
151 

152 /* 

153 " Set tenex transfer type. 

154 */ 

155 /--VARARGS*/ 

156 settenexQ 

157 { 
158 

159 calKsettype, "type", "tenex", 0); 

160 } 
161 

162 /* 

163 * Set ebcdic transfer type. 

164 */ 

165 /*VARARGS*/ 

166 setebcdicO 

167 { 
168 
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169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 



call(settype, "type", "ebcdic", 0); 



* Set file transfer mode. 



*/ 

etmode(argc, argv) 

char *argv[ ] ; 



xoprintf (xstdout ,"We only support %s mode, sorry. \n", modename); 



* Set file transfer format. 

*/ 

etform(argc, argv) 

char *argv[ ] ; 



xoprintf (xstdout , M We only support %s format, sorry. \n", formname); 



* Set file transfer structure. 
*/ 

etstruct(argc, argv) 
char *argv[ ] ; 



xoprintf (xstdout , "We only support %s structure, sorry. \n", structname); 



-'' Send a single file. 
*/ 
put(argc, argv) 

int argc; 
char *argv[ ] ; 



{ 



char *cmd; 
char *r emote; 
char "local ; 
int madeargs = 0; 
int madeglob = 0; 

if (argc ==2) 

argc++, remote = argv[l]; 
else if (argc < 2) { 

xstrcat(line, " "); 

xoprintf (xstdout , "(local-file)") ; 

xfflush( xstdout ); 

xgets(&line[xstrlen(line) ] ) ; 

argv = xmkarglist( line, &argc ); 

madeargs = 1; 
} 
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225 else { 

226 remote = argv[2]; 

227 } 

228 if( argc < 2 ) { 

229 xoprintf (xstdout, "%s local-file [remote-f ile]\n", argv[0]); 

230 goto endput; 

231 } 

232 if (argc < 3) { 

233 xstrcat(line, " "); 

234 xoprintf (xstdout, "(remote-file, %s is default) ", argv[l] ); 

235 xfflush( xstdout ); 

236 xgets(&line[xstrlen(line)]); 

237 if( madeargs ) 

238 xdealglob( argv ); 

239 argv = xmkarglist( line, &argc ); 

240 madeargs = 1; 

241 remote = argv[2]; 

242 } 

243 if (argc < 3) { 

244 remote = argv[l]; 

245 } 

246 local = argv[l]; 

247 if (Kmadeglob = globulize(&local) ) ) 

248 goto endput; 

249 cmd = (argv[0][0] == 'a') ? "APPE" : "STOR"; 

250 sendrequest(cmd, local, remote ); 

251 endput: 

252 if( madeglob && doglob ) 

253 xdealglob( glizept ); 

254 if( madeargs ) 

255 xdealglob( argv ); 

256 } 
257 

258 /* 

259 - Send multiple files. 

260 */ 

261 mput(argc, argv) 

262 char *argv[ ] ; 

263 { 

264 char **cpp, ''"''gargs = XNULL; 

265 int madeargs = 0; 

266 int cfrval; 

267 int doall = 0; 
268 

269 if (argc < 2) { 

270 xstrcat(line, " "); 

271 xoprintf (xstdout , "(local-files) "); 

272 xfflush( xstdout ); 

273 xgets(&line[xstrlen(line) ] ) ; 

274 argv = xmkarglist( line, &argc ); 

275 madeargs = 1; 

276 } 

277 if (argc < 2) { 

278 xoprintf (xstdout ,"%s local-f iles\n" , argv[0]); 

279 goto endmput; 

280 } 
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281 cpp = argv + 1; 

282 if (doglob) { 

283 gargs = xglob(cpp); 

284 if (globerr != XNULL) { 

285 xoprintf (xstdout ,"%s\n M , globerr); 

286 if (gargs) 

287 xdealglob(gargs); 

288 goto endmput; 

289 } 

290 } 

291 if (gargs != XNULL) 

292 cpp = gargs; 

293 for (; *cpp != XNULL; cpp++) 

294 { 

295 if( Idoall ) 

296 cfrval = conf irm(argv[0] , *cpp); 

297 if( cfrval == 'a' ) 

298 doall = 1; 

299 if( cfrval == 'q' ) 

300 break; 

301 if ( cfrval ) 

302 sendrequestC'STOR", -cpp, -cpp); 

303 } 

304 if (gargs != XNULL) 

305 xdealglob(gargs); 

306 endmput : 

307 if( madeargs ) 

308 xdealglob( argv ); 

309 } 
310 

311 /* 

312 * Receive one file. 

313 */ 

314 get(argc, argv) 

315 char *argv[ ] ; 

316 { 

317 int madeargs = 0; 

318 int madeglob = 0; 

319 char "local; 
320 

321 if (argc == 2) 

322 argc++, local = argv[l]; 

323 else if (argc < 2) { 

324 xstrcat(line ? " "); 

325 xoprintf (xstdout, "(remote-file) "); 

326 xfflush( xstdout ); 

327 xgets(&line[xstrlen(line)]); 

328 argv = xmkarglist( line, &argc ); 

329 madeargs = 1; 

330 } 

331 else { 

332 local = argv[2]; 

333 } 

334 if (argc < 2) { 

335 xoprintf (xstdout, "%s remote-file [ local-file ]\n", argv[0]); 

336 goto endget; 
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337 } 

338 if (argc < 3) { 

339 xstrcatUine, " "); 

340 xoprintf(xstdout, "(local-file, %s is default) ", argv[l] ); 

341 xfflush( xstdout ); 

342 xgets(&line[xstrlen(line)]); 

343 if( madeargs ) 

344 xdealglob( argv ); 

345 argv = xmkarglist( line, &argc ); 

346 madeargs = 1; 

347 local = argv[2]; 

348 } 

349 if (argc < 3) { 

350 local = argv[l]; 

351 } 

352 if ( ! (madeglob = globulize(&local) ) ) 

353 goto endget; 

354 recvrequestC'RETR", local, argv[l], "w"); 

355 endget: 

356 if( madeglob && doglob ) 

357 xdealglob( glizept ); 

358 if( madeargs ) 

359 xdealglob( argv ); 

360 } 
361 

362 /* 

363 - Get multiple files. 

364 */ 

365 mget(argc, argv) 

366 char "argv[]; 

367 { 

368 char *cp; 

369 int madeargs = 0; 

370 int cfrval; 

371 int doall = 0; 
372 

373 if (argc < 2) { 

374 xstrcatdine, " "); 

375 xoprintf (xstdout /'(remote-files) "); 

376 xfflush( xstdout ); 

377 xgets(&line[xstrlen(line)] ) ; 

378 argv = xmkarglist( line, &argc ); 

379 madeargs = 1; 

380 } 

381 if (argc < 2) { 

382 xoprintf (xstdout ,"%s remote-f iles\n", argv[0]); 

383 goto endmget; 

384 } 

385 while ((cp = remglob(argc , argv)) != XNULL) 

386 { 

387 if( Idoall ) 

388 cfrval = conf irm(argv[0] , cp ); 

389 if( cfrval == 'a' ) 

390 doall = 1; 

391 if( cfrval == f q f ) { 

392 while ((cp = remglob(argc , argv)) != XNULL) 
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393 ; 

394 break; 

395 } 

396 if ( cfrval ) 

397 recvrequestC'RETR", cp, cp, "w"); 

398 } 

399 endmget : 

400 if( madeargs ) 

401 xdealglob( argv ); 

402 } 
403 

404 char temp[l6] = { }; 

405 char * 

406 remglob(argc, argv) 

407 char *argv[ ] ; 

408 { 

409 /* 

410 char tempt 16]; 

411 */ 

412 static char buf [MAXPATHLEN] = {0}; 

413 static XFILE -ftemp = XNULL; 

414 static char ~'"''args; 

415 int oldverbose; 

416 char *cp, "'mode; 

417 int ftemi; 

418 int oldtype; 

419 char oldtname[25] ; 
420 

421 if (Idoglob) { 

422 if (args == XNULL) 

423 args = argv; 

424 if ((cp = *++args) == XNULL) 

425 args = XNULL; 

426 return (cp); 

427 } 

428 if (ftemp == XNULL) { 

429 xstrcpy(temp, SCRATCHFILE ); 

430 xmktemp(temp) ; 

431 oldverbose = verbose, verbose = 0; 

432 oldtype = type; 

433 if( oldtype != TYPE_A ) { 

434 /* 

435 - do remote globbing in ascii mode 

436 */ 

437 xstrcpy( oldtname, typename ); 

438 call( settype, "type", "ascii", ); 

439 } 

440 for (mode = "w"; *++argv != XNULL; mode = "a") 

441 recvrequest ("NLST", temp, "''argv, mode); 

442 if( oldtype != TYPE_A ) { 

443 /* 

444 " restore original type 

445 */ 

446 call( settype, "type", oldtname, ); 

447 } 

448 verbose = oldverbose; 
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449 ftemi = xdopen(temp, XFREAD | XFASCII, FILE_NAME ); 

450 xunlink(temp, FILE_NAME ); 

451 ftemp = xodopen( ftemi, "r" ); 

452 if (ftemp == XNULL) { 

453 xoprintf (xstdout , 

454 "can't find list of remote files, oops\n"); 

455 return (XNULL); 

456 } 

457 } 

458 if (xogets(buf, sizeof (buf), ftemp) == XNULL) { 

459 xclose(xfileno( ftemp)), ftemp = XNULL; 

460 return (XNULL); 

461 } 

462 if ((cp = xstrchr(buf, '\n')) != XNULL) 

463 * cp = 'NO 1 ; 

464 return (buf); 

465 } 
466 

467 char * 

468 onoff(bool) 

469 int bool; 

470 { 
471 

472 return (bool ? "on" : "off"); 

473 } 
474 

475 /* 

476 * Show status. 

477 */ 

478 status(argc, argv) 

479 char *argv[ ] ; 

480 { 
481 

482 if (connected) 

483 xoprintf (xstdout, "Connected to %s.\n", hostname); 

484 else 

485 xoprintf (xstdout, "Not connected. \n") ; 

486 xoprintf (xstdout, "Mode: %s; Type: %s; Form: %s; Structure: %s\n", 

487 modename, typename, formname, structname); 

488 xoprintf(xstdout, "Verbose: %s; Bell: %s; Prompting: %s; Globbing: %s\n", 

489 onoff (verbose) , onoff(bell), onoff (interactive) , 

490 onoff(doglob)); 

491 xoprintf (xstdout, "Hash mark printing: %s; Use of PORT cmds: %s\n", 

492 onoff(hash), onof f (sendport ) ) ; 

493 } 
494 

495 /* 

496 * Set beep on cmd completed mode. 

497 */ 

498 /*VARARGS*/ 

499 setbelK) 

500 { 
501 

502 bell = !bell; 

503 xoprintf(xstdout,"Bell mode %s.\n", onof f (bell)) ; 

504 } 
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505 

506 /* 

507 " Turn on packet tracing. 

508 */ 

509 /*VARARGS*/ 

510 settraceO 

511 { 
512 

513 trace = Itrace; 

514 xoprintf (xstdout, "Packet tracing %s.\n", onoff (trace) ) ; 

515 } 
516 

517 /* 

518 * Toggle hash mark printing during transfers. 

519 */ 

520 /*VARARGS*/ 

521 sethashO 

522 { 
523 

524 hash = !hash; 

525 xoprintf (xstdout, "Hash mark printing %s", onoff (hash) ) ; 

526 if (hash) 

527 xoprintf (xstdout," (%d bytes/hash mark)", BUFSIZ); 

528 xoprintf (xstdout, "An"); 

529 } 
530 

531 /* 

532 * Turn on printing of server echo's. 

533 */ 

534 /-VARARGS*/ 

535 setverboseO 

536 { 
537 

538 verbose = ! verbose; 

539 xoprintf (xstdout, "Verbose mode %s.\n", onoff (verbose) ) ; 

540 } 
541 

542 /* 

543 * Toggle PORT cmd use before each data connection. 

544 */ 

545 /*VARARGS*/ 

546 setportO 

547 { 
548 

549 sendport = ! sendport; 

550 xoprintf (xstdout, "Use of PORT cmds %s.\n", onoff (sendport )) ; 

551 } 
552 

553 /* 

554 * Turn on interactive prompting 

555 " during mget, mput , and mdelete. 

556 */ 

557 /*VARARGS*/ 

558 setpromptO 

559 { 
560 
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561 interactive = ! interactive; 

562 xoprintf (xstdout, "interactive mode %s.\n", onoff (interactive)) ; 

563 } 
564 

565 /* 

566 * Toggle metacharacter interpretation 

567 " on local file names. 

568 */ 

569 /*VARARGS*/ 

570 setglobO 

571 { 
572 

573 doglob = '.doglob; 

574 xoprintf (xstdout ,"Globbing %s.\n", onoff (doglob) ) ; 

575 } 
576 

577 /* 

578 " Set debugging mode on/off and/or 

579 * set level of debugging. 

580 */ 

581 /*VARARGS*/ 

582 setdebug(argc, argv) 

583 char *argv[ ] ; 

584 { 

585 int val; 
586 

587 if (argc > 1) { 

588 val = xatoi(argv[ l] ); 

589 if (val < 0) { 

590 xoprintf (xstdout ,"%s: bad debugging value. \n", argv[l]); 

591 return; 

592 } 

593 } else 

594 val = '.debug; 

595 debug = val; 

596 if (debug) 

597 options |= SODEBUG; 

598 else 

599 options &= ~S0_DEBUG; 

600 xoprintf (xstdout, "Debugging %s (debug=%d) An", onoff (debug) , debug); 

601 } 
602 

603 /* 

604 " Set current working directory 

605 * on remote machine. 

606 */ 

607 cd(argc, argv) 

608 char *argv[ ] ; 

609 { 

610 int madeargs = 0; 
611 

612 if (argc < 2) { 

613 xstrcat(line, " "); 

614 xoprintf (xstdout , "(remote-directory) "); 

615 xfflush( xstdout ); 

616 xgets(&line[xstrlen(line) ] ) ; 
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617 argv = xmkarglist( line, &argc ); 

618 madeargs = 1; 

619 } 

620 if (argc < 2) { 

621 xoprintf(xstdout,"%s remote-directory\n", argv[0]); 

622 goto ended; 

623 } 

624 VOID command ("CWD %s", argv[l]); 

625 ended: 

626 if( madeargs ) 

627 xdealglob( argv ); 

628 } 
629 

630 /* 

631 * Set current working directory 

632 " on local machine. 

633 */ 

634 lcd(argc, argv) 

635 char *argv[ ] ; 

636 { 

637 char buf [MAXPATHLEN] ; 

638 char *dir; 

639 int madeglob = 0; 

640 int rval; 

641 int func_code; 
642 

643 if (argc < 2) 

644 argc++, dir = (char *)0, func_code = HOMEDIR; 

645 else 

646 dir = argv[l], funccode = FILE_NAME; 

647 if (argc != 2) { 

648 xoprintf(xstdout,"%s local-directory\n", argv[0]); 

649 goto endlcd; 

650 } 

651 if (Kmadeglob = globulize(&dir) ) ) 

652 goto endlcd; 

653 if ((rval = xchdir(dir, funccode)) < 0) { 

654 xperror(rval , dir); 

655 goto endlcd; 

656 } 

657 endlcd: 

658 if( madeglob && doglob ) 

659 xdealglob( glizept ); 

660 } 
661 

662 /* 

663 * Delete a single file. 

664 */ 

665 delete(argc, argv) 

666 char *argv[ ] ; 

667 { 

668 int madeargs = 0; 
669 

670 if (argc < 2) { 

671 xstrcatdine, " "); 

672 xoprintf (xstdout , "(remote-file) "); 
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673 xfflush( xstdout ); 

674 xgets(&line[xstrlen(line)]); 

675 argv = xmkarglist( line, &argc ); 

676 madeargs = 1; 

677 } 

678 if (argc < 2) { 

679 xoprintf (xstdout ,"%s remote-f ile\n", argv[0]); 

680 goto enddelete; 

681 } 

682 VOID commandC'DELE %s", argv[l]); 

683 enddelete: 

684 if( madeargs ) 

685 xdealglob( argv ); 

686 } 
687 

688 /* 

689 " Delete multiple files. 

690 */ 

691 mdelete(argc, argv) 

692 char *argv[ ] ; 

693 { 

694 char *cp; 

695 int madeargs =0; 

696 int cfrval; 

697 int doall = 0; 
698 

699 if (argc < 2) { 

700 xstrcat(line, " "); 

701 xoprintf (xstdout , "(remote-f iles) "); 

702 xfflush( xstdout ); 

703 xgets(&line[xstrlen(line)]); 

704 argv = xmkarglist( line, &argc ); 

705 madeargs = 1; 

706 } 

707 if (argc < 2) { 

708 xoprintf (xstdout ,"%s remote-f iles\n" , argv[0]); 

709 goto endmdel; 

710 } 

711 while ((cp = remglob(argc, argv)) != XNULL) 

712 { 

713 if( Jdoall ) 

714 cfrval = conf irm(argv[0] , cp); 

715 if( cfrval == 'a' ) 

716 doall = 1; 

717 if( cfrval == 'q 1 ) { 

718 while ((cp = remglob(argc , argv)) != XNULL) 

719 ; 

720 break; 

721 } 

722 if ( cfrval ) 

723 VOID commandC'DELE %s", cp); 

724 } 

725 endmdel: 

726 if( madeargs ) 

727 xdealglob( argv ); 

728 } 
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729 

730 /* 

731 * Rename a remote file. 

732 */ 

733 renamef ile(argc, argv) 

734 char *argv[ ] ; 

735 { 

736 int madeargs = 0; 
737 

738 if (argc < 2) { 

739 xstrcat(line, " "); 

740 xoprintf (xstdout ,"(f rom-name) "); 

741 xfflush( xstdout ); 

742 xgets(&line[xstrlen(line)] ) ; 

743 argv = xmkarglist( line, &argc ); 

744 madeargs = 1; 

745 } 

746 if (argc < 2) { 

747 usage: 

748 xoprintf (xstdout ,"%s f rom-name to-name\n", argv[0]); 

749 goto endrname; 

750 } 

751 if (argc < 3) { 

752 xstrcat(line, " "); 

753 xoprintf (xstdout ,"(to-name) "); 

754 xfflush( xstdout ); 

755 xgets(&line[xstrlen(line) ] ) ; 

756 if( madeargs ) 

757 xdealglob( argv ); 

758 argv = xmkarglist( line, &argc ); 

759 } 

760 if (argc < 3) 

761 goto usage; 

762 if ( command ("RNFR %s", argv[l]) == CONTINUE) 

763 VOID commandC'RNTO %s", argv[2]); 

764 else 

765 VOID commandC'RNTO "); /« keep server happy */ 

766 endrname: 

767 if( madeargs ) 

768 xdealgloM argv ); 

769 } 
770 

771 /* 

772 '' Get a directory listing 

773 "" of remote files. 

774 */ 

775 ls(argc, argv) 

776 char *argv[ ] ; 

777 { 

778 char *cmd; 

779 char *rdir; 

780 char *lfile; 

781 int madeglob = 0; 
782 

783 if (argc < 2) 

784 argc++, rdir = XNULL; 
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785 else 

786 rdir = argv[ l] ; 

787 if (argc < 3) 

788 argc++, lfile = "-"; 

789 else 

790 lfile = argv[2]; 

791 if (argc > 3) { 

792 xoprintf(xstdout, "usage: %s remote-directory local-f ile\n" , argv[0]); 

793 return; 

794 } 

795 cmd = argv[0][0] == ' 1 ' ? "NLST" : "LIST"; 

796 if (xstrcmpUfile, "-") && ! (madeglob = globulizeC&lf ile)) ) 

797 goto endls; 

798 recvrequest(cmd, lfile, rdir, "w"); 

799 endls: 

800 if( madeglob && doglob ) 

801 xdealglob( glizept ); 

802 } 
803 

804 /* 

805 * Get a directory listing 

806 «'" of multiple remote files. 

807 */ 

808 mls(argc, argv) 

809 char *argv[ ] ; 

810 { 

811 char *cmd, "mode; 

812 int i, dest; 

813 char "'rdir; 

814 char *lfile; 

815 int madeglob = 0; 

816 int cfrval; 
817 

818 if (argc < 2) 

819 argc++, rdir = XNULL; 

820 else 

821 rdir = argv[l]; 

822 if (argc < 3) 

823 { 

824 argc++, lfile = "-"; 

825 dest = argc - 1; 

826 } 

827 else 

828 { 

829 dest = argc - 1; 

830 lfile = argv[dest]; 

831 } 

832 cmd = argv[0][l] == 'l f ? M NLST" : "LIST"; 

833 if (xstrcmpUfile, "-") != 0) 

834 if (! (madeglob = globulize(&lf ile) ) || 

835 ! (cfrval = conf irm("local-f ile", lfile)) || 

836 cfrval == f q' 

837 ) 

838 goto endmls; 

839 for (i = 2, mode = "w"; i < dest + 1 ; i++, mode = "a") 

840 { 
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841 


recvrequest(cmd, lfile, rdir, mode); 


842 


rdir = argv[i]; 


843 


} 


844 


endmls: 


845 


if( madeglob && doglob ) 


846 


xdealglob( glizept ); 


847 


} 


848 




849 


#ifndef SHELLESCAPE 


850 




851 


/* 


852 


" shell escape not implemented 


853 


*/ 


854 


shelK ) 


855 




856 


{ 


857 


xoprintf (xstdout, "shell escapes not implemented. \n M ); 


858 


} 


859 




860 


#else 


861 




862 


/* 


863 


Vf shell escape for a specifc OS 


864 


*/ 


865 


shelK) 


866 


{ 


867 


xshellO; 


868 


} 


869 




870 


#endif SHELLESCAPE 


871 




872 




873 


/* 


874 


" Send new user information (re-login) 


875 


*/ 


876 


user(argc, argv) 


877 


int argc; 


878 


char v "''argv; 


879 


{ 


880 


char acct[80], -xgetpassO; 


881 


int n; 


882 


int madeargs = 0; 


883 


char *pas sword; 


884 


char ""account; 


885 




886 


if (argc < 2) { 


887 


xstrcat(line, " "); 


888 


xoprintf (xstdout /'(Remote Username) "); 


889 


xfflush( xstdout ); 


890 


xgets(&line[xstrlen(line) ] ) ; 


891 


argv = xmkarglist( line, &argc ); 


892 


madeargs = 1; 


893 


} 


894 


if (argc < 2 | | argc > 4) { 


895 


xoprintf (xstdout , 


896 


"usage: %s username [password] 
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897 goto enduser; 

898 } 

899 n = command ("USER %s", argv[l]); 

900 if (n == CONTINUE) { 

901 if (argc < 3 ) 

902 password = xgetpass("Remote Password: "), argc++; 

903 else 

904 password = argv[2]; 

905 n = command("PASS %s", password); 

906 if (n == CONTINUE) { 

907 if (argc < 4) { 

908 xoprintf (xstdout , "Remote Account:"); 

909 VOID xfflush(xstdout); 

910 VOID xogets(acct, sizeof(acct) - 1, xstdin); 

911 acct[xstrlen(acct) - l] = '\0'; 

912 account = acct; 

913 argc++; 

914 } 

915 else 

916 account = argv[3]; 

917 n = command("ACCT %s", account); 

918 } 

919 } 

920 if (n != COMPLETE) { 

921 xoprintf (xstderr, "Login failed. \n"); 

922 goto enduser; 

923 } 

924 if( madeargs ) 

925 xdealglob( argv ); 

926 return (1); 

927 enduser: 

928 if( madeargs ) 

929 xdealglob( argv ); 

930 return( ); 

931 } 
932 

933 /* 

934 * Print working directory. 

935 */ 

936 /*VARARGS*/ 

937 pwd() 

938 { 

939 int noverbose = 0; 
940 

941 if( Iverbose ) 

942 { 

943 noverbose = 1; 

944 verbose = 1; 

945 } 

946 VOID command ("XPWD"); 

947 if( noverbose ) 

948 verbose = 0; 

949 } 
950 

951 /* 

952 * Make a directory. 
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953 */ 

954 makedir(argc, argv) 

955 char *argv[ ] ; 

956 { 

957 int madeargs = 0; 
958 

959 if (argc < 2) { 

960 xstrcatUine, " "); 

961 xoprintf (xstdout , "(directory-name) "); 

962 xfflush( xstdout ); 

963 xgets(&line[xstrlen(line)] ) ; 

964 argv = xmkarglist( line, &argc ); 

965 madeargs = 1; 

966 } 

967 if (argc < 2) { 

968 xoprintf (xstdout ,"%s directory— name\n", argv[0]); 

969 goto endmkdir; 

970 } 

971 VOID command ("XMKD %s", argv[l]); 

972 endmkdir: 

973 if( madeargs ) 

974 xdealglob( argv ); 

975 } 
976 

977 /* 

978 * Remove a directory. 

979 */ 

980 removedir(argc, argv) 

981 char *argv[ ] ; 

982 { 

983 int madeargs = 0; 
984 

985 if (argc < 2) { 

986 xstrcatUine, " "); 

987 xoprintf (xstdout , "(directory-name) "); 

988 xfflush( xstdout ); 

989 xgets(&line[xstrlen(line)] ) ; 

990 argv = xmkarglist( line, &argc ); 

991 madeargs = 1; 

992 } 

993 if (argc < 2) { 

994 xoprintf (xstdout ,"%s directory-name\n" , argv[0]); 

995 goto endrmdir; 

996 } 

997 VOID commandC'XRMD %s", argv[l]); 

998 endrmdir: 

999 if( madeargs ) 

1000 xdealglob( argv ); 

1001 } 
1002 

1003 /* 

1004 " Send a line, verbatim, to the remote machine. 

1005 */ 

1006 quote(argc, argv) 

1007 char *argv[]; 

1008 { 
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1009 int i; 

1010 char buf[BUFSIZ]; 

1011 int madeargs = 0; 
1012 

1013 if (argc < 2) { 

1014 xstrcat(line, " "); 

1015 xoprintf (xstdout, "(command line to send) "); 

1016 xfflush( xstdout ); 

1017 xgets(&line[xstrlen(line)]); 

1018 argv = xmkarglist( line, &argc ); 

1019 madeargs = 1; 

1020 } 

1021 if (argc < 2) { 

1022 xoprintf(xstdout, "usage: %s line-to-send\n", argv[0j); 

1023 goto endquote; 

1024 } 

1025 xstrcpy(buf, argv[l]); 

1026 for (i = 2; i < argc; i++) { 

1027 xstrcat(buf, " "); 

1028 xstrcat(buf, argv[i]); 

1029 } 

1030 VOID command(buf ); 

1031 endquote: 

1032 if( madeargs ) 

1033 xdealglob( argv ); 

1034 } 
1035 

1036 /* 

1037 * Ask the other side for help. 

1038 */ 

1039 rmthelp(argc, argv) 

1040 char *argv[]; 

1041 { 

1042 int oldverbose = verbose; 
1043 

1044 verbose = 1; 

1045 VOID command(argc == 1 ? "HELP" : "HELP %s", argv[l]); 

1046 verbose = oldverbose; 

1047 } 
1048 

1049 /* 

1050 - Terminate session and exit. 

1051 */ 

1052 /*VARARGS*/ 

1053 quitO 

1054 { 
1055 

1056 if (connected) 

1057 disconnect ) ; 

1058 xexit(O); 

1059 } 
1060 

1061 /* 

1062 * Terminate session, but don't exit. 

1063 */ 

1064 disconnect ) 
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1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 



} 



extern XFILE *cout; 
extern XFILE *cin; 
extern int data; 

if (! connected) 
return; 
VOID command ("QUIT"); 
VOID xclose( xf ileno(cout ) ) ; 
VOID xclose( xf ileno(cin)) ; 
cout = XNULL; 
cin = XNULL; 
connected = 0; 
data = -1; 



confirm(cmd, file) 

char v 'cmd, "file; 



{ 



char line[BUFSIZ]; 

if ((! interactive) || (ifromatty)) 

return (1); 
xoprintf (xstdout ,"%s %s ?(n==don' t ,a==do all,q==do no more,y==do)? ", 

cmd, file); 
xf flush (xstdout ) ; 
xgets(line) ; 
switch ( "line ) { 



case 
case 



case 
case 



case 
case 



case 
case 



default : 



1 



return( ); 

return( 'y* ); 

return( 'a' ); 

return( 'q' ); 
break; 



} 



return(l) ; 



fatal(msg) 

char Vr msg; 
{ 



xoprintf (xstderr, "ftp: %s\n"); 
xexit(l) ; 



/* 



" Glob a local file name specification with 
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1121 * the expectation of a single return value. 

1122 * Can't control multiple values being expanded 

1123 * from the expression, we return only the first. 

1124 */ 

1125 static 

1126 globulize(cpp) 

1127 char **cpp; 

1128 { 

1129 char **globbed; 

1130 char *argv[2]; 
1131 

1132 if (Idoglob) 

1133 return (1); 

1134 argv[0] = *cpp; 

1135 argv[l] = (char *)0; 

1136 globbed = xglob( argv ); 

1137 if (globerr != XNULL) { 

1138 xoprintf (xstdout ,"%s: %s\n", *cpp, globerr); 

1139 if (globbed) 

1140 xdealglob(globbed); 

1141 return (0); 

1142 } 

1143 if (globbed) { 

1144 *cpp = "globbed; 

1145 /" don't waste too much memory */ 

1146 glizept = globbed; 

1147 } 

1148 else 

1149 return( ); 

1150 return (1); 

1151 } 
1152 

1153 lls( argc, argv ) 
1154 

1155 int argc; 

1156 char *argv[ ] ; 

1157 { 

1158 if( argc > 1 ) 

1159 llist( argc, argv, LS_ARG ); 

1160 else 

1161 llist( argc, argv, LS ); 

1162 } 
1163 

1164 ldir( argc, argv ) 
1165 

1166 int argc; 

1167 char *argv[ ] ; 

1168 { 

1169 if( argc > 1 ) 

1170 llist( argc, argv, LSLONGARG ); 

1171 else 

1172 llist( argc, argv, LSLONG ); 

1173 } 
1174 

1175 llist( argc, argv, func_code ) 
1176 
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1177 int argc; 

1178 char *argv[ ] ; 

1179 int func_code; 

1180 { 

1181 char **argvl; 

1182 char **argv2; 

1183 char *pt ; 
1184 

1185 if( argc > 1 ) 



1186 




{ 


1187 




if ( doglob ) { 


1188 




argvl = xglob( &argv[l] ); 


1189 




if ( argvl == XNULL | | globerr ) { 


1190 




xoprintf( xstdout, "No file name matches." ); 


1191 




if ( argvl != XNULL ) 


1192 




xdealglob( argvl ); 


1193 




return; 


1194 




} 


1195 




} else { 


1196 




argvl = &argv[l]; 


1197 




} 


1198 




argv2 = argvl; 


1199 




for ( pt = *argv2++ ; pt ; pt = *argv2++ ) 


1200 




{ 


1201 




xls( xf ileno(xstdout ) , pt, func code ); 


1202 




} 


1203 




if( doglob ) 


1204 




xdealglob( argvl ); 


1205 




} 


1206 


else 




1207 




{ 


1208 




xls( xf ileno(xstdout), (char *)0, func code ); 


1209 




} 


1210 


} 




1211 






1212 


lpwd( 


argc, argv ) 


1213 






1214 


int argc; 


1215 


char 


*argv[ ] ; 


1216 


{ 




1217 


char 


buf[MAXPATHLEN + l]; 


1218 


int success; 


1219 






1220 


success = xpwd( buf , sizeof( buf ), PWD ); 


1221 


if( ! 


success ) 


1222 




{ 


1223 




xoprintf( xstdout, "local current directory is: %s\n", buf ); 


1224 




1 


1225 

1 99A 


else 


{ 

xoprintf( xstdout, 


J. Z. Z.O 

1227 




1228 




"current directory unknown %s\n", xrerror( success ) 


1229 




} 


1230 


1 
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1 #ifndef lint 

2 static char sccsid[] = 

3 " @(#)cmdtab.c 1.9 6/3/85"; 

4 #endif 
5 

6 #include "ftpc.h" 
7 

8 /* 

9 * User FTP — Command Tables. 

10 */ 

11 int setasciiO, setbelK), setbinaryO, setdebugO, setformO; 

12 int setglobO, sethashO, setmodeO, setpeerO, setport (); 

13 int setpromptO, setstructO; 

14 int settenexO, settraceO, settypeO, setverbose( ) ; 

15 int disconnectO; 

16 int cd(), lcd(), deleteO, mdeleteO, userO; 

17 int ls(), mls(), get(), mgetO, helpO, put(), mputO; 

18 int quitO, renamef ile( ) , statusO; 

19 int quoteO, rmthelpO, shelK); 

20 int pwd(), makedirO, removedirO; 

21 int lls(), lpwdO, IdirO; 
22 

23 char appendhelpt] = "append to a file"; 

24 char asciihelp[] = "set ascii transfer type"; 

25 char beephelp[] = "beep when command completed"; 

26 char binaryhelpt ] = "set binary transfer type"; 

27 char cdhelp[ ] = "change remote working directory"; 

28 char connecthelp[ ] = "connect to remote tftp"; 

29 char deletehelp[] = "delete remote file"; 

30 char debughelp[] = "toggle/set debugging mode"; 

31 char dirhelpt ] = "list contents of remote directory"; 

32 char disconhelpt] = "terminate ftp session"; 

33 char f ormhelpt ] = "set file transfer format"; 

34 char globhelpf] = "toggle metacharacter expansion of local file names"; 

35 char hashhelpf] = "toggle printing '#' for each buffer transferred"; 

36 char helphelpU = "print local help information"; 

37 char lcdhelpt] = "change local working directory"; 

38 char lshelp[] = "nlist contents of remote directory"; 

39 char mdeletehelpt ] = "delete multiple files"; 

40 char mdirhelp[] = "list contents of multiple remote directories"; 

41 char mgethelp[ ] = "get multiple files"; 

42 char mkdirhelp[] = "make directory on the remote machine"; 

43 char mlshelpt] = "nlist contents of multiple remote directories"; 

44 char modehelp[] = "set file transfer mode"; 

45 char mputhelpU = "send multiple files"; 

46 char porthelp[] = "toggle use of PORT cmd for each data connection"; 

47 char prompthelpt ] = "force interactive prompting on multiple commands"; 

48 char pwdhelp[] = "print working directory on remote machine"; 

49 char quithelpN = "terminate ftp session and exit"; 

50 char quotehelpt] = "send arbitrary ftp command"; 

51 char receivehelpt ] = "receive file"; 

52 char remotehelp[] = "get help from remote server"; 

53 char renamehelpt] = "rename file"; 

54 char rmdirhelp[] = "remove directory on the remote machine"; 

55 char sendhelp[] = "send one file"; 

56 char shellhelpt] = "escape to the shell"; 
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57 


char 


statushelp[] = 


"show current s 


tatus"; 




58 


char 


structhelp[] = 


"set file transfer 


structure"; 


59 


char 


tenexhelpt ] = 


"set tenex file 


transfer t 


ype"; 


60 


char 


tracehelpE] = 


"toggle packet 


tracing"; 




61 


char 


typehelpE] = 


"set file transfer 


type' ; 




62 


char 


userhelpE] = 


"send new user 


information 


ti . 

> 


63 


char 


llshelpE] = 


"list directory 


on 


local machine"; 


64 


char 


IpwdhelpE ] = 


"print local current directory(s)"; 


65 


char 


ldirhelpE ] = 


"long listing o 


f 1 


ocal directory(s) ; 


66 


char 


verbosehelpE ] = 


"toggle verbose 


mode"; 




67 














68 


struct 


cmd cmdtab[] = { 










69 




r it f ii 


shellhelp, 


o, 


o, 


shell }, 


70 




{ "append", 


appendhelp, 


1, 


1, 


put }, 


71 




{ "ascii", 


asciihelp, 


o, 


1, 


setascii }, 


72 




{ "bell", 


beephelp, 


o, 


0, 


setbell }, 


73 




{ "binary", 


binaryhelp, 


o, 


1, 


setbinary }, 


74 




{ "bye", 


quithelp, 


o, 


o, 


quit }, 


75 




{ "cd", 


cdhelp, 


o, 


1, 


cd }, 


76 




{ "close", 


disconhelp, 


o, 


1, 


disconnect }, 


77 




{ "delete", 


deletehelp, 


o, 


1, 


delete }, 


78 




{ "debug", 


debughelp, 


o, 


o, 


setdebug }, 


79 




{ "dir", 


dirhelp, 


1, 


1, 


Is }, 


80 




{ "form", 


formhelp, 


o, 


1, 


setform }, 


81 




{ "get", 


receivehelp, 


1, 


1, 


get }, 


82 




{ "glob", 


globhelp, 


o, 


o, 


setglob }, 


83 




{ "hash", 


hashhelp, 


o, 


o, 


sethash }, 


84 




{ "help", 


helphelp, 


0j 


o, 


help }, 


85 




{ "led", 


ledhelp, 


o, 


o, 


led }, 


86 




{ "Is", 


lshelp, 


1, 


1, 


Is }, 


87 




{ "mdelete", 


mdeletehelp, 


1, 


1, 


mdelete }, 


88 




{ "mdir", 


mdirhelp, 


1, 


1, 


mis } , 


89 




1 mget , 


mgethelp, 


1, 


1, 


mget }, 


90 




{ "mkdir", 


mkdirhelp, 


o, 


1, 


makedir }, 


•91 




1 mis , 


mlshelp, 


1, 


1 


mis } , 


92 




1 mode , 


modehelp, 





1 


setmode }, 


93 




i mput , 


mputhelp, 


1 


1 


, mput } , 


94 




1 open , 


connecthelp, 





o 


, setpeer } , 


95 




{ "prompt", 


prompthelp, 





o 


, setprompt }, 


96 




{ "sendport", 


porthelp, 





o 


, setport }, 


97 




{ "put", 


sendhelp, 


1 


1 


, put }, 


98 




{ "pwd", 


pwdhelp, 





1 


, pwd } , 


99 




{ "quit", 


quithelp, 





, o 


, quit } , 


100 




{ "quote", 


quotehelp, 


1 


, 1 


, quote } , 


101 




{ "recv", 


receivehelp, 


1 


, 1 


, get }, 


102 




{ "remotehelp" , 


remotehelp, 





, 1 


, rmthelp }, 


103 




{ "rename" , 


renamehelp, 





, 1 


, renamefile }, 


104 




{ "rmdir", 


rmdirhelp, 





, 1 


, removedir }, 


105 




{ "send", 


sendhelp, 


1 


, 1 


, put }, 


106 




{ "status", 


statushelp, 





, o 


, status }, 


107 




{ "struct", 


structhelp, 





, 1 


, setstruct }, 


108 




{ "tenex", 


tenexhelp, 





, 1 


, settenex }, 


109 




{ "trace", 


tracehelp, 





, o 


, settrace }, 


110 




{ "type", 


typehelp, 





, 1 


, settype }, 


111 




{ "user", 


userhelp, 





, 1 


, user }, 


112 




{ "verbose", 


verbosehelp, 





, o 


, setverbose }, 
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113 




{ "ldir", 




ldirhelp, 


o, 


o, 


ldir }, 


114 




{ "lis", 




llshelp, 


o, 


o, 


lis }, 


115 




{ "lpwd", 




lpwdhelp, 


o, 


o, 


1 pwd } , 


116 




I • * 




helphelp, 


o, 


o, 


help }, 


117 




{ o }, 












118 


}; 














119 
















120 


int 


NCMDS = ( 


sizeof 


(cmdtab) / 


sizeof 


(cmdtabtO])) 


- i; 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



#ifndef lint 

static char sccsid[ ] = " @(#)ftp.c 

#endif 



1.20 6/21/85"; 



#include "ftpc.h" 

struct sckadr_in hisctladdr = { AF_INET }; 

struct sckadr_in data_addr = { AF_INET }; 

int data = -1; 

struct sckadr_in myctladdr = { AF_INET }; 

/* 



/* 



* Options and other state info. 

.*/ 

int trace = 0; 

int hash = 0; 

int sendport = -1; 

int verbose = 0; 

int connected = 0; 

int fromatty = 0; 

int interactive = 0; 

int debug = 0; 

int bell = 0; 

int doglob = 0; 

int autologin = 0; /" 



/* trace packets exchanged */ 
/* print # for each buffer transferred */ 
use PORT cmd for each data connection */ 



/* 
/* 



/"' print messages coming back from server */ 
connected to server */ 
input is from a terminal */ 

/-' interactively prompt on m* cmds */ 

/" debugging level */ 

/* ring bell on cmd completion */ 

/" glob local file names "'/ 
establish user account on connection */ 



char 

int 

char 

int 

char 

int 

char 

int 

char 

int 

char 

struct 
char 
int 
char 



typename[32] = {0}; 
type = 0; 

structname[32] = {0}; 
stru = 0; 

formname[32] = {0} 
form = 0; 

modename[32] = {0} 
mode = 0; 
bytename[32] =. {0} 



/* name of file transfer type */ 

/* file transfer type */ 

/* name of file transfer structure */ 

/* file transfer structure -'/ 

/* name of file transfer format ■ 

/" file transfer format */ 

/" name of file transfer mode */ 

/* file transfer mode -/ 

/"' local byte size in ascii */ 



7 



bytesize = 0; /* local byte size in binary */ 
-hostname = (char^')O; /* name of host connected to */ 



s erven t *sp = 0; 
line[200] = {0}; 
marge = 0; 
"''" v ma r g v = (char * * ) ; 



/" service spec for tcp/ftp */ 

/" input line buffer v 7 

/- count of arguments on input line */ 

/" args parsed from input line */ 



int options = 0; /* used during socket creation -/ 

extern char "'xgetpassO; 

extern long xpasstnet(), xpassfnetO; 

extern long xtimeO; 

extern XFILE -xodopenO; 



#define SWAITMAX 
#define SWAITINT 



90 
5 



/* wait at most 90 seconds */ 
/" interval between retries */ 



int swaitmax = SWAITMAX; 
int swaitint = SWAITINT; 



XFILE -cin = XNULL, -cout = XNULL; 
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57 XFILE *dataconn(); 
58 

59 struct hostent * 

60 hookup(host, port) 

61 char "host; 

62 int port; 

63 { 

64 register struct hostent *hp; 

65 int s, len; 

66 int rval ; 
67 

68 bzero((char *)&hisctladdr, sizeof (hisctladdr) ) ; 

69 hp = ghbname(host ) ; 

70 if (hp == XNULL) { 

71 static struct hostent def; 

72 static struct in_addr defaddr; 

73 static char namebuf [ 128] ; 

74 int inet_addr(); 
75 

76 defaddr. saddr = inet_addr(host ) ; 

77 if (defaddr. s_addr == -1) { 

78 xoprintf (xstderr , "%s: Unknown host.\n", host); 

79 return (0); 

80 } 

81 xstrcpy(namebuf , host); 

82 def.h_name = namebuf; 

83 hostname = namebuf; 

84 def.h_addr = (char *)&defaddr; 

85 def.h_length = sizeof (struct in_addr); 

86 def .h_addrtype = AFINET; 

87 def .haliases = 0; 

88 hp = &def; 

89 } 

90 hostname = hp->h_name; 

91 hisctladdr .sin_family = hp->h_addrtype; 

92 s = xsocket(SOCK_STREAM, (struct sockproto *)0, 

93 (struct sockaddr *)0, SO_KEEPALIVE) ; 

94 if (s < 0) { 

95 xperror(s,"f tp: socket"); 

96 return (0); 

97 } 

98 bcopy(hp->h_addr , (char *)&hisctladdr . sin_addr , hp->h_length) ; 

99 hisctladdr . sin port = port; 

100 if (( rval = xconnect(s , (char *)&hisctladdr)) < 0){ 

101 xperror(rval ? "ftp: connect"); 

102 goto bad; 

103 } 

104 len = sizeof (myctladdr); 

105 if ((rval = xsktaddr(s, (char *)&myctladdr) ) < 0) { 

106 xperror(rval ? "f tp: getsockname") ; 

107 goto bad; 

108 } 

109 xdup2( s, ( rval = xnewod( ) ) ); 

110 cin = xodopen(s, "r"); 

111 cout = xodopen(rval , "w"); 

112 if (cin == XNULL | | cout == XNULL) { 
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113 xoprintf (xstderr, "ftp*, fdopen failed. \n M ); 

114 if (cin) 

115 xclose(xf ileno(cin) ) ; 

116 if (cout) 

117 xclose(xf ileno(cout )) ; 

118 goto bad; 

119 } 

120 if (verbose) 

121 xoprintf (xstdout, "Connected to %s.\n", hp->h_name) ; 

122 VOID getreply(O); /* read startup message from server */ 

123 return (hp); 

124 bad: 

125 xclose(s); 

126 return ((struct hostent *)0); 

127 } 
128 

129 /* 

130 For now, non-interactive use of ftp requires explicate USER and 

131 PASS commands. 

132 Later, we can define an autologin procedure that will work for all 

133 systems. 

134 */ 

135 login(hp) 

136 struct hostent "hp; 

137 { 

138 char acct[80]; 

139 char ""user, *pass; 

140 int n; 
141 

142 if( Ifromatty ) 

143 return( ); 

144 user = acct; 

145 xoprintf (xstdout, "Remote User Name:"); VOID xf f lush(xstdout ) ; 

146 if( xogets(user, sizeof(acct) - 1, xstdin) == XNULL ) { 

147 if( xfeof( xstdin ) ) { 

148 xprintf( "\n" ); 

149 quitO; 

150 xexit( ); 

151 } else { 

152 return( ); 

153 } 

154 } 

155 if( xstrlen(acct) - 1 <= ) 

156 return( ); 

157 user[xstrlen(acct ) - l] = ! \0'; 

158 n = commandC'USER %s", user); 

159 if (n == CONTINUE) 

160 { 

161 pass = xgetpass( "Remote Password:" ); 

162 xputchar( '\n' ); 

163 n = command("PASS %s", pass); 

164 if (n == CONTINUE) 

165 { 

166 xoprintf (xstdout, "Remote Account: "); 

167 VOID xfflush(xstdout); 

168 VOID xogets(acct, sizeof(acct) - 1, xstdin); 
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169 acct[xstrlen(acct) - l] = '\0'; 

170 n = command ("ACCT %s", acct); 

171 } 

172 } 

173 if (n != COMPLETE) { 

174 xoprintf (xstderr, "Login failed. \n"); 

175 return (0); 

176 } 

177 return (1); 

178 } 
179 

180 /*VARARGS 1*/ 

181 #ifdef zilog 

182 /* 

183 * Pick parameters from registers, and put them in an honest-looking 

184 " stack frame. 

185 */ 

186 command(fmt, al, a2, a3, a4, a5, a6) 

187 char *fmt; 

188 int al, a2, a3, a4, a5, a6; 

189 { 

190 int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aa6=a6; 

191 #else 

192 command(fmt, args) 

193 char *fmt; 

194 { 

195 #endif 

196 int how; /- something for xioctl args to point to */ 

197 

198 if (debug) { 

199 xoprintf (xstdout," > "); 

200 _mydoprnt(fmt , &args, xstdout); 

201 xoprintf (xstdout, "\n"); 

202 VOID xfflush(xstdout); 

203 } 

204 if (cout == XNULL) { 

205 xperror (0, "No control connection for command"); 

206 return (0); 

207 } 

208 if( !empty( cin ) ) { 

209 /* 

210 * Since we are sending a new command, it is expected 

211 * that all replies to previous commands have been 

212 * processed. Thus, if there is any data in the command 

213 * stream, we are out of sync with the server, and 

214 * the data that is now present should be flushed. 

215 */ 

216 how = 1; 

217 xioctK xfileno( cout ), FIONBIO, &how ); 

218 if( verbose ) 

219 xoprintf ( xstderr, "Old reply in command stream:\n" ); 

220 VOID getreply( ); 

221 how = 0; 

222 xioctK xfileno( cout ), FIONBIO, &how ); 

223 } 

224 mydoprnt(fmt , &args, cout); 
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225 xoprintf (cout, "\r\n"); 

226 VOID xfflush(cout); 

227 return (getreply( !xstrcmp(fmt , "QUIT"))); 

228 } 
229 

230 empty(f) 

231 XFILE *f; 

232 { 

233 long mask; 

234 int rval; 
235 

236 if( f->_cnt > ) 

237 return( ); 

238 #ifndef NOSELECT 

239 mask = ( 1 « (xfileno( f ))); 

240 rval = xselect( 20, &mask, (long *)0, 0L ); 

241 return ( mask == ) ; 

242 #else 

243 return( 1 ); 

244 #endif NOSELECT 

245 } 
246 
247 
248 

249 getreply(expecteof ) 

250 int expecteof; 

251 { 

252 register int c, n; 

253 register int code, dig; 

254 int originalcode = 0, continuation = 0; 
255 

256 for (;;) { 

257 dig = n = code = 0; 

258 while ((c = xgetc(cin)) != '\n') { 

259 dig++; 

260 if ( c == XEOF) { 

261 if( xfeof(cin) ) { 

262 if (expecteof) 

263 return (0); 

264 xoprintf (xstdout , "lost connection. \n") ; 

265 return( 5 ); 

266 } else { 

267 xoprintf (xstdout , "error on read.\n" ); 

268 return( n - '0' )*, 

269 } 

270 } 

271 if (verbose && c != f \r' | | 

272 (n == '5' && dig > 4)) 

273 xputchar(c); 

274 if (dig < 4 && isdigit(c)) 

275 code = code * 10 + (c - '0'); 

276 if (dig == 4 && c == '-') 

277 continuation++; 

278 if (n == 0) 

279 n = c; 

280 } 
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281 if (verbose || n == '5') { 

282 xputchar(c); 

283 VOID xf flush (xstdout); 

284 } 

285 if (continuation && code != originalcode) { 

286 if (originalcode == 0) 

287 originalcode = code; 

288 continue; 

289 } 

290 if ( ! continuation | | (code == originalcode) ) 

291 return (n - '0'); 

292 } 

293 } 
294 
295 

296 sendrequest(cmd, local, remote) 

297 char *cmd, "local, "remote; 

298 { 

299 int (-closefunc)O; 

300 long bytes = 0, hashbytes = 1024; 

301 long start, stop; 

302 int read_reply = 0; 

303 int inod; 

304 XFILE -inopt, *outopt; 

305 int omode; 

306 struct ftp_attr attributes; 
307 

308 closefunc = XNULL; 

309 if (xstrcmp(local, "-") == 0) { 

310 inopt = xstdin; 

311 } else { 

312 omode = XFREAD; 

313 attributes. rep_type = type; 

314 attributes. format = form; 

315 attributes. structure = stru; 

316 attributes. transmode = mode; 

317 attributes. bytesz = bytesize; 

318 inod = xftpopen( local, omode, FILE_NAME, &attributes ); 

319 if( inod < ) 

320 { 

321 xperror( inod, local ); 

322 goto bad; 

323 } 

324 inopt = xodopen( inod, "r" ); 

325 if (inopt == XNULL) { 

326 xoprintf (xstderr, "xodopen failed\n" )*, 

327 xclose( inod ); 

328 goto bad; 

329 } 

330 closefunc = xclose; 

331 } 

332 if (initconnO) 

333 goto bad; 

334 readreply = 1; 

335 if (remote) { 

336 if (command("%s %s", cmd, remote) != PRELIM) { 
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337 




— read reply; 


338 




goto bad; 


339 




} 


340 




} else 


341 




if ( command C ! %s", cmd) != PRELIM) { 


342 




— read reply; 


343 




goto bad; 


344 




} 


345 




outopt = dataconn("w") ; 


346 




if (outopt == XNULL) 


347 




goto bad; 


348 




start = xtime(); 


349 




bytes = xpasstnet( inopt, outopt ); 


350 




stop = xtimeO; 


351 




if( closefunc != XNULL ) 


352 




xclose( inod ); 


353 




xclose( xf ileno(outopt ) ); 


354 




data = -1; 


355 




if( bytes < ) 


356 




{ 


357 




xperror( (int)bytes, "local" ); 


358 




1 


359 




VOID getreply(O); 


360 


done: 




361 




if (bytes > && verbose) 


362 




ptransfer("sent", bytes, &start, &s 


363 




return; 


364 


bad: 




365 




if (bytes > && verbose) 


366 




stop = xtimeO; 


367 




if (data >= 0) 


368 




VOID xclose(data), data = -1; 


369 




if (closefunc != XNULL && inopt != XNULL) 


370 




xclose( inod ); 


371 




if (read reply == 1) 


372 




VOID getreply(O); 


373 




goto done; 


374 


} 




375 






376 


recvre 


squest(cmd, local, remote, append ) 


377 




char "cmd, "local, "remote, "'append; 


378 


{ 




379 




int ("''closefunc )() ; 


380 




long bytes = 0, hashbytes = 1024; 


381 




long start, stop; 


382 




int read reply = 0; 


383 




int inod, outod; 


384 




XFILE "inopt, ""outopt; 


385 




int omode; 


386 




struct ftp attr attributes; 


387 






388 




closefunc = XNULL; 


389 




if (initconnO) 


390 




goto bad; 


391 




read reply = 1; 


392 




if (remote) { 



Apr 30 23:02 1986 ftp.c Page 8 

393 int x; 

394 if ((x = command ("%s %s", cmd, remote)) != PRELIM) { 

395 /* fprintf (stderr, "bad return from command(%s %s) = %d\n", cmd, remote, x); */ 

396 — readreply; 

397 goto bad; 

398 } 

399 } else { 

400 int x; 

401 if ((x = commandC^s", cmd)) != PRELIM) { 

402 /* fprintf (stderr, "bad return from command(%s) = %d\n", cmd, x); */ 

403 — readreplyj 

404 goto bad; 

405 } 

406 } 

407 if (xstrcmp(local, "-") == 0) { 

408 outopt = xstdout; 

409 } else { 

410 omode = XFWRITE | XFCREAT | 

411 (( *append == 'a' )? XFAPPEND : XFTRUNC ); 

412 attributes. rep_type = type; 

413 attributes. format = form; 

414 attributes. structure = stru; 

415 attributes. transmode = mode; 

416 attributes. byte_sz = bytesize; 

417 outod = xftpopen(local, omode, FILE_NAME, &attributes ); 

418 if( outod < ) 

419 { 

420 xperror( outod, local ); 

421 goto bad; 

422 } 

423 outopt =? xodopen( outod, "w" ); 

424 if( outopt == XNULL ) 

425 { 

426 xoprintf (xstderr , "xodopen failed\n" ); 

427 xclose( outod ); 

428 goto bad; 

429 } 

430 closefunc = xclose; 

431 } 

432 inopt = dataconn("r") ; 

433 if (inopt == XNULL) 

434 goto bad; 

435 start = xtime(); 

436 bytes = xpassfnet( inopt, outopt ); 

437 stop = xtime(); 

438 xclose( xfileno( inopt ) ); 

439 data = -1; 

440 if( closefunc != XNULL ) 

441 xclose( outod ); 

442 if( bytes < ) 

443 { 

444 xperror( (int)bytes, "local" ); 

445 } 

446 VOID getreply(O); 

447 done: 

448 if (bytes > && verbose) 
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449 ptransfer("received", bytes, &start, &stop); 

450 return; 

451 bad: 

452 if (bytes > && verbose) 

453 stop = xtimeO; 

454 if (data >= 0) 

455 VOID xclose(data), data = -1; 

456 if (closefunc != XNULL && outopt != XNULL) 

457 xclose( outod ); 

458 if (read_reply ==1) 

459 VOID getreply(O); 

460 goto done; 

461 } 
462 

463 /* 

464 * Need to start a listen on the data channel 

465 * before we send the command, otherwise the 

466 " server's connect may fail. 

467 */ 
468 

469 initconnO 

470 { 

471 register char *p, *a; 

472 int result, len; 

473 int options = SO_KEEPALIVE | SO_ACCEPTCONN; 

474 int retry; 

475 int rval; 
476 

477 noport: 

478 /* 

479 data_addr = myctladdr; 

480 */ . 

481 bcopy(&myctladdr, &data_addr, sizeof (struct sckadrin)); 

482 if (sendport) 

483 data_addr.sin_port = 0; /* let system pick one */ 

484 if (data != -1) 

485 VOID xclose (data); 

486 for (retry = 0; retry < swaitmax; xsleep (swaitint), retry += swaitint) 

487 { 

488 data = xsocket(SOCK_STREAM, (struct sockproto *)0, 

489 &data_addr, options); 

490 if (data >= | | (data != XEADDRINUSE && data != XENOBUFS)) 

491 break; 

492 } 

493 if (data < 0) { 

494 xperror(data, "ftp: socket"); 

495 return (1); 

496 } 

497 len = sizeof (dataaddr); 

498 if ((rval = xsktaddr(data, (char * )&data_addr) ) < 0) { 

499 xperror(rval, "ftp: xsktaddr"); 

500 goto bad; 

501 } 

502 if (sendport) { 

503 a = (char * )&data_addr . sin_addr ; 

504 p = (char * )&data_addr . sin_port ; 
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505 #define UC(b) (((int )b)&0xf f ) 

506 result = 

507 command ("PORT %d,%d,%d,%d,%d,%d", 

508 UC(a[0]), UC(a[l]), UC(a[2]), UC(a[3]), 

509 UC(p[0]), UC(p[l])); 

510 if (result == ERROR && sendport == -1) { 

511 sendport = 0; 

512 goto noport; 

513 } 

514 return (result != COMPLETE); 

515 } 

516 return (0); 

517 bad: 

518 VOID xclose(data), data = -1; 

519 return (1); 

520 } 
521 

522 XFILE * 

523 dataconn(mode) 

524 char "mode; 

525 { 

526 struct sckadr_in from; 

527 int s, fromlen = sizeof (from); 
528 

529 s = xaccept(data, &from); 

530 if (s < 0) { 

531 xperror(s, "ftp: accept"); 

532 VOID xclose(data), data = -1; 

533 return (XNULL); 

534 } 

535 return (xodopen(data, mode)); 

536 } 
537 

538 ptransfer(direction, bytes, tO, tl) 

539 char "direction; 

540 long bytes; 

541 long *t0, -tl; 

542 { 

543 long sec; 
544 

545 sec = -tl - -t0; 

546 if (sec <= 0) 

547 sec = 1; 

548 xoprintf (xstdout ,"%ld bytes %s in %ld seconds (%ld bytes/s )\n" , 

549 bytes, direction, sec, bytes / sec ); 

550 } 
551 

552 /* 

553 Routines from here on are to use names introduced by 4.2 BSD. 

554 */ 
555 

556 shutdown (fd, how) 

557 int fd, how; 

558 { 

559 xioctl (fd, SIOCDONE, &how); 

560 } 
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561 

562 /* 

563 mp - Even if doprnt is more wonderful than jnydoprnt for systems which 

564 have _doprnt, using _doprnt is an incredible maintainance headache 

565 In any case, we should support the same functionality on all 

566 systems. 

567 Hence, may _doprnt rest in peace. 

568 */ 

569 jnydoprnt (format, argp, FILEp) 

570 char "format; 

571 int "argp; 

572 XFILE *FILEp; 

573 { 

574 xoprintf (FILEp, format, -argp, *(argp+l), *(argp+2), -(argp+3), 

575 *(argp+4), -(argp+5)); 

576 } 
577 

578 bzero (what, size) 

579 register char *what; 

580 register int size; 

581 { 

582 while (size — > 0) 

583 *what++ = 0; 

584 } 
585 

586 bcopy (from, to, size) 

587 register char -from, "to; 

588 register int size; 

589 { 

590 while (size — > 0) 

591 "to++ = "from++; 

592 } 
593 

594 bcmp (left, right, size) 

595 register char -left, -right; 

596 register int size; 

597 { 

598 while (size— > 0) 

599 if (*left++ != *right++) 

600 if (0xff&(*— left) > 0xff&(*— right)) 

601 return (1); 

602 else 

603 return (-1); 

604 return (0); 

605 } 
606 
607 

608 struct servent * gsbname (service, proto) 

609 char "''service, *proto; 

610 { 

611 static struct servent servstat; 

612 

613 servstat .s_name = service; 

614 servstat .saliases = 0; 

615 if (xstrcmp (service, "ftp") == 0) 

616 servstat. sport = (IPRTJTP); 



Apr 30 23:02 1986 ftp.c Page 12 



617 else 

618 if (xstrcmp (service, "telnet") == 0) 

619 servstat.s_port = (IPPORT_TELNET) ; 

620 else 

621 return (0); 

622 servstat .s_proto = proto; 

623 return (&servstat); 

624 } 
625 

626 struct hostent * 

627 ghbname(host) 

628 char -host; 

629 { 

630 static struct hostent def; 

631 static struct in_addr defaddr; 

632 static char namebuf[ 128] ; 

633 extern long xrhost (); 
634 

635 defaddr. s_addr = xrhost (&host ) ; 

636 if (defaddr. saddr == -1) 

637 return (0); 

638 xstrcpy(namebuf , host); 

639 def.h_name = namebuf; 

640 def.haddr = (char *)&defaddr; 

641 def.h_length = sizeof (struct in_addr); 

642 def.haddrtype = AF_INET; 

643 def .haliases = 0; 

644 return (&def); 

645 } 
646 

647 int inet_addr (host) 

648 char "host; 

649 { 

650 return (-1); 

651 } 
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54 
55 
56 



/* 

%W% %G% 

Operating system specific initialization for ftp client. 

...stuff the doesn't seem worth the effort of providing 

general mechanisms for. 
*/ 

#include <xgenlib.h> 
^include <xpwd.h> 
#include <xspecial.h> 
typedef int jmp_buf; 
int errno = 0; 
int figit = 0; 
jmp buf toplevel =0; 
#include <ftpvar.h> 
jmp buf *envptr = {0}; 



extern int fromatty; 
extern int _ttyinput; 
extern int conned; 
/* extern astlconnO; 



/" ftp started from terminal */ 
/"' set in xoslib "/ 

/" true if connected to server */ 



7 



extern struct passwd *pw 

clientinit( ) 
{ 

fromatty = ttyinput; 



/* true when used interactively */ 



/" set up routine to print out message and halt program -/ 

/* 
emt(SREX,astlconn) ; 

*/ 

toplevel = (int ) & envptr; 

} 
/* 
lostpeer( ) 

{ 

extern XFILE -cout; 
extern int data; 

xoprintf( xstdout, "Lost Connection. \n" ); 
if (conned) { 

if (cout != XNULL) { 

shutdown(xf ileno(cout ) , 1+1); 

xclose(cout ) ; 

cout = XNULL; 

} 

if (data >= 0) { 

shutdown(data, 1+1); 
xclose(data) ; 

data = -1; 

} 

conned = 0; 
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57 } 

58 } 

59 */ 

60 gethbaddrO 

61 { 

62 } 
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1 #ifndef lint 

2 static char sccsid[] = " @(#)main.c 1.14 8/28/85"; 

3 #endif 
4 

5 /* 

6 * FTP User Program — Command Interface. 

7 */ 

8 #include "ftpc.h" 
9 

10 int intr(); 

11 extern int data; 

12 extern char *' v xmkarglist( ) ; 

13 extern char "xstrrchrO; 
14 

15 

16 xmain(argc, argv) 

17 char *argv[ ] ; 

18 { 

19 /* 

20 " Don't use register declarations in this procedure — Zilog 

21 * S8000 setretO (alias setjmpO) can't abide by them. 

22 */ 

23 char *cp; 

24 int top; 
25 

26 margv = (char **)0; 

27 sp = gsbnameC'ftp", "tcp"); 

28 if (sp == 0) { 

29 xoprintf (xstderr, "ftp: ftp/tcp: unknown service\n"); 

30 xexit(l); 

31 } 

32 doglob = 1; 

33 interactive = 1; 

34 autologin = 1; 

35 argc — , argv++; 

36 while (argc > && --argv == '-') { 

37 for (cp = *argv + 1; *cp; cp++) 

38 switch ("'cp) { 
39 

40 case 'd': 

41 options |= SO_DEBUG; 

42 debug++; 

43 break; 
44 

45 case ' v' : 

46 verbose++; 

47 break; 
48 

49 case ' t 1 : 

50 trace++; 

51 break; 
52 

53 case ' i ' : 

54 interactive = 0; 

55 break; 
56 
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57 case n : 

58 autologin = 0; 

59 break; 
60 

61 case f g': 

62 doglob = 0; 

63 break; 
64 

65 default: 

66 xoprintf (xstderr , 

67 "ftp: %c: unknown option\n", *cp); 

68 xexit(l); 

69 } 

70 argc — , argv++; 

71 } 

72 /* 

73 * Set up defaults for FTP. 

74 */ 

75 xstrcpy(typename, "ascii"), type = TYPE_A; 

76 xstrcpy(formname, "non-print"), form = FORM_N; 

77 xstrcpy(modename, "stream"), mode = MODES; 

78 xstrcpy(structname, "file"), stru = STRU_F; 

79 xstrcpy(bytename, "8"), bytesize = 8; 

80 if (fromatty) 

81 verbose++; 

82 else 

83 interactive = 0; /* not interactive, prompt off-/ 

84 /* 

85 * Set up the home directory in case we're globbing. 

86 */ 

87 if (argc > 0) { 

88 if (xset jmp(toplevel)) 

89 xexit(O); 

90 xint_term( intr ); 

91 setpeer(argc + 1, argv - 1); 

92 } 

93 top = xset jmp(toplevel); 

94 if (top == | | top == 1 ) { 

95 xint_term( intr ); 

96 top = 1; 

97 } 

98 for (;;) { 

99 cmdscanner( top) ; 

100 top = 1; 

101 } 

102 } 
103 

104 intr() 

105 { 
106 

107 /* 

108 Should send telnet IP, but ... 

109 for now just close data connection so that ftp will fall back 

110 into command mode. 

111 We still have to wait for other side to complete. 

112 */ 
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113 




xint term( intr ); 


114 




if( data != -1 ) 


115 




{ 


116 




shutdown( data, 2 ); 


117 




xclose( data ); 


118 




data = -1; 


119 




xoprintf (xstdout , "data connection broken\n" ); 


120 




} 


121 


} 




122 






123 


char * 




124 


taiKfi 


Llename) 


125 




char '''filename; 


126 


{ 




127 




register char *s; 


128 






129 




while ('''filename) { 


130 




s = xstrrchr(f ilename, ' /'); 


131 




if (s == XNULL) 


132 




break; 


133 




if (s[l]) 


134 




return (s + 1); 


135 




*s = '\0'; 


136 




} 


137 




return (filename); 


138 


} 




139 






140 


extern 


struct cmd cmdtab[ ] ; 


141 


extern 


int helpO; 


142 


/* 




143 


* Command parser. 


144 


*/ 




145 


cmdscanner(top) 


146 




int top; 


147 


{ 




148 




register struct cmd *c; 


149 




struct cmd "getcmdO; 


150 






151 




if (!top) 


152 




xputchar( ' \n' ) ; 


153 




for (;;) { 


154 




if (fromatty) { 


155 




xoprintf (xstdout ,"ftp> "); 


156 




xf flush ( xstdout ) ; 


157 




} 


158 




if (xgets(line) == XNULL) { 


159 




if( xfeof( xstdin ) ) { 


160 




/* 


161 




quit on end of input 


162 




*/ 


163 




xprintf( "\n" ); 


164 




quit( ) ; 


165 




} else { 


166 




break; 


167 




} 


168 




1 
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169 if (line[0] == 0) 

170 break; 

171 if( margv ) 

172 xdealglob( margv ); 

173 margv = xmkarglist( line, &margc ); 

174 c = getcmd(margv[0] ); 

175 if (c == (struct cmd *)-l) { 

176 xoprintf (xstdout ,"?Ambiguous command\n") ; 

177 continue; 

178 } 

179 if (c == 0) { 

180 xoprintf (xstdout, "?Invalid commandV); 

181 continue; 

182 } 

183 if (c->c_conn && ! connected) { 

184 xoprintf (xstdout, "Not connected. \n") ; 

185 continue; 

186 } 

187 (*c->c_handler) (marge, margv); 

188 if (bell && c->c_bell) 

189 xputchar(CTRL( f G')); 

190 if (c->c_handler != help) 

191 break; 

192 } 

193 xlongjmp(toplevel, 0); 

194 } 
195 

196 struct cmd * 

197 getcmd(name) 

198 register char "name; 

199 { 

200 register char *p, *q; 

201 register struct cmd -c, "found; 

202 register int nmatches, longest; 
203 

204 /* 

205 convert command to lower case. 

206 */ 

207 for( q = name ; -q ; ++q ) { 

208 if( i supper ( *q ) ) 

209 *q = _tolower( *q ); 

210 } 

211 longest = 0; 

212 nmatches = 0; 

213 found = 0; 

214 for (c = cmdtab; p = c->c_name; C++) { 

215 for (q = name; *q == *p++; q++) 

216 if (*q == 0) /- exact match? */ 

217 return (c); 

218 if (!*q) { /* the name was a prefix */ 

219 if (q - name > longest) { 

220 longest = q - name; 

221 nmatches = 1; 

222 found = c; 

223 } else if (q - name == longest) 

224 nmatches++; 
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225 } 

226 } 

227 if (nmatches > 1) 

228 return ((struct cmd *)-l); 

229 return (found); 

230 } 
231 
232 

233 #define HELPINDENT (sizeof ("directory")) 
234 

235 extern int NCMDS; 

236 /* 

237 * Help command. 

238 * Call each command handler with argc == and argv[0] == name. 

239 */ 

240 help(argc, argv) 

241 int argc; 

242 char *argv[ ] ; 

243 { 

244 register struct cmd *c; 
245 

246 if (argc == 1) { 

247 register int i, j, w; 

248 int columns, width = 0, lines; 
249 

250 xoprintf (xstdout , 

251 "Commands may be abbreviated. Commands are:\n\n"); 

252 for (c = cmdtab; c < &cmdtab[NCMDS] ; C++) { 

253 int len = xstrlen(c->c name); 
254 

255 if (len > width) 

256 width = len; 

257 } 

258 width = (width + 8) &~ 7; 

259 columns = 80 / width; 

260 if (columns == 0) 

261 columns = 1; 

262 lines = (NCMDS + columns - 1) / columns; 

263 for (i = 0; i < lines; i++) { 

264 for (j = 0; j < columns; j++) { 

265 c = cmdtab + j * lines + i; 

266 xoprintf (xstdout ,"%s", c->c name); 

267 if (c + lines >= &cmdtab[NCMDS] ) { 

268 xoprintf (xstdout, "\n"); 

269 break; 

270 } 

271 w = xstrlen(c->c_name) ; 

272 while (w < width) { 

273 w = ( w + 8) &~ 7; 

274 xputchar('\t'); 

275 } 

276 } 

277 } 

278 return; 

279 } 

280 while (—argc > 0) { 
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281 register char *arg; 

282 arg = *++argv; 

283 c = getcmd(arg); 

284 if (c == (struct cmd *)-l) 

285 xoprintf (xstdout ,"?Ambiguous help command %s\n", arg); 

286 else if (c == (struct cmd *)0) 

287 xoprintf (xstdout, "?Invalid help command %s\n", arg); 

288 else 

289 xoprintf (xstdout, "%-*s\t%s\n", HELPINDENT, 

290 c->c_name, c->c_help); 

291 } 

292 } 
293 

294 /* 

295 * Call routine with argc, argv set from args (terminated by 0). 

296 */ 

297 /* VARARGS2 */ 

298 call (routine, args) 

299 int (*routine)(); 

300 int args; 

301 { 

302 register int *argp; 

303 register int argc; 
304 

305 for (argc = 0, argp = &args; *argp++ != 0; argc++) 

306 ; 

307 (*routine)(argc, &args); 

308 } 
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1 




.tit] 


2 


getenv: : 




3 


gethen: J 




4 


getnbaJ i 




5 


getnbnl 




6 


getnenr, 




7 


getpens 




8 


getsbpx 




9 


getseni 




10 


gpbnams 




11 


gpbnum: 




12 




rts 


13 




.end 



dummy 



pc 
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1 

2 /* "@(#)compat.h 1.9 4/15/85" */ 

3 

4 /* added by billn */ 

5 /* #include <exos/misc.h> */ 

6 #ifdef index /* system 3 or 5 -/ 

7 #include <fcntl.h> 

8 #de£ine dup2(£,n) { close(n); fcntl(f, F_DUPFD, n);} 

9 #endif 

10 #ifndef void 

11 #define void int 

12 #endif 
13 

14 #define VOID (void) 
15 

16 #ifndef SIGCHLD 

17 #define SIGCHLD SIGCLD 

18 #endif 

19 /* end billn */ 
20 

21 #ifndef MAXPATHLEN 

22 #define MAXPATHLEN 33 

23 #endif 
24 

25 #define receive_data rec_data 

26 #define wait3 wait2 

27 #de£ine initgroups(a,b) 

28 #de£ine inappropriate_request inapreq 
29 

30 #ifde£ BSD4dot2 

31 #else 

32 #ifdef V7 

33 #include <sys/timeb.h> 

34 struct timeval { long tv_sec; long tv_usec; }; 

35 struct timeb ftimeb; 

36 #define gettimeofday(a,b) ( ftime (&f timeb), \ 

37 (a)->tv_sec = ftimeb. time, (a)->tv_usec = f timeb. millitm) 

38 #else 

39 struct timeval { long tv_sec; long tv usee; }; 

40 extern long xtime(); 

41 #define gettimeofday(a,b) ((a)->tv_sec = time(0), (a)->tv_usec = 0) 

42 #endif V7 

43 #endif BSD4dot2 
44 

45 #i£ndef CTRL 

46 #define CTRL(x) 037&'x' 

47 #endif 
48 

49 #define SOL_SOCKET 

50 #define SO REUSEADDR 
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1 /* 

2 @(#)ftpd.h 1.2 4/11/85 
3 

4 Header files for generic server code, 

5 */ 

6 #include <xgenlib.h> 

7 #include <xpwd.h> 

8 #include <netdb.h> 
9 

10 typedef int jmp_buf; 

11 #include <ftp.h> 

12 #include <in.h> 

13 #include <socket.h> 

14 ^include <xspecial.h> 

15 #include "telnet. h" 

16 #define off_t long 

17 extern int figit ; 

18 extern long xpasstnetO; 

19 extern long xpassfnetO; 

20 #define VOID figit = (int) 

21 #define renamecmd cmdrename 
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21 
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23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
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54 
55 
56 



/*@(#)telnet.h 1.8 4/11/85*/ 
/* 

* Definitions for the TELNET protocol. 

*/ 

#define IAC 255 /* interpret as command: *7 

#define DONT 254 /* you are not to use option */ 

#define DO 253 /* please, you use option *7 

#define WONT 252 /* I won't use option */ 

#define WILL 251 /-' I will use option */ 

#define SB 250 /* interpret as subnegotiation */ 

#define GA 249 /* you may reverse the line */ 

#define EL 248 /* erase the current line *l 

#define EC 247 /* erase the current character ''*/ 

#define AYT 246 /* are you there */ 

#define AO 245 /* abort output — but let prog finish */ 

#define IP 244 /- interrupt process — permanently */ 

#define BREAK 243 /* break */ 

#define DM 242 /* data mark — for connect, cleaning */ 

#define NOP 241 /* nop */ 

#define SE 240 /* end sub negotiation */ 

#define SYNCH 242 /* for telfunc calls */ 

/* telnet options */ 

#define TNPBINARY /* 8-bit data path */ 

#define TNPECHO 1 /* echo */ 

#define TNPRCP 2 /* prepare to reconnect "'/ 

#define TNPSGA 3 /* suppress go ahead */ 

#define TNPNAMS 4 /* approximate message size */ 

#define TNPSTATUS 5 /* give status */ 

#define TNPTM 6 /* timing mark */ 

#define TNPRCTE 7 /* remote controlled transmission and echo */ 

#define TNPNAOL 8 /* negotiate about output line width */ 

#define TNPNAOP 9 /* negotiate about output page size */ 

#define TNPNAOCRD 10 /* negotiate about CR disposition */ 

#define TNPHTS 11 /* negotiate about horizontal tabstops */ 

#define TNPHTD 12 /* negotiate about horizontal tab disposition */ 

#define TNPNAOFFD 13 /* negotiate about formfeed disposition */ 

#define TNPVTS 14 /* negotiate about vertical tab stops */ 

#define TNPVTD 15 /-' negotiate about vertical tab disposition -'/ 

#define TNPNAOLFD 16 /* negotiate about output LF disposition */ 

#define TNPXASCII 17 I* extended ascic character set *7 

#define TNPLOGOUT 18 /* force logout */ 

#define TNPBM 19 /* byte macro */ 

#define TNPDET 20 /* data entry terminal */ 

#define TNPSUPDUP 21 /* supdup protocol */ 

#define TNPEXOPL 255 /* extended-options-list */ 

#ifdef TELCMDS 

char "telcmds[] = { 

"SE", "NOP", "DMARK", "BRK", "IP", "AO" , "AYT", "EC", 
"EL", "GA", "SB", "WILL", "WONT", "DO", "DONT" , "IAC", 

}; 

#endif 



Apr 30 23:04 1986 telnet. h Page 2 



#ifdef TELOPTS 

char *telopts[] = { 

"BINARY", "ECHO", "RCP" , "SUPPRESS GO AHEAD", "NAME", 

"STATUS", "TIMING MARK", "RCTE", "NAOL" , "NAOP" , 

bl "NAOCRD", "NAOHTS", "NAOHTD", "NAOFFD", "NAOVTS", 

62 "NAOVTD", "NAOLFD", "EXTEND ASCII", "LOGOUT 11 , "BYTE MACRO" 

63 "DATA ENTRY TERMINAL", "SUPDUP" 

64 ): 



64 }; 

65 #endif 
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1 

2 # line 7 "£ tpcmd.y" 

3 

4 #ifndef lint 

5 static char sccsid[] = "@(#)f tpcmd.y 1.16 8/15/85"; 

6 #endif 
7 

8 #define PARSER 

9 #include "ftpd.h" 
10 

11 /* 

12 * MWP: 03/06/85 

13 * Make machines which have different sized ints and pointers happy. 

14 * (at least as far as the parser stack is concerned). 

16 */ 

17 typedef char * YYSTDEF; 

18 #define YYSTYPE YYSTDEF 

19 YYSTYPE copyO; 

20 /* 



21 ic&&&icWti{ie•jr•k•k■ic•!rkic1t••k'ieic•ic•{e•ic•ieic•i{•k•Je•Sc"it"ie'ie1(•i{'!<• 

22 */ 
23 

24 extern struct sckadrin data_dest; 

25 extern int logged_in; 

26 extern int guest; 

27 extern int logging; 

28 extern int type; 

29 extern int form; 

30 extern int debug; 

31 extern int timeout; 

32 extern char hostname[]; 

33 extern char "globerr; 

34 extern char "'xghome; 

35 extern int usedefault; 

36 extern char **xglob( ) ; 

37 static char -"''globargs = 0; 

38 static char **rnf_glob = 0; 

39 static char *username = 0; 

40 static char "'userpass = 0; 
41 

42 static int cmdtype = 0; 

43 static int cmdform = 0; 

44 static int cmdbytesz = 0; 
45 

46 char *xstrchr( ) ; 

47 # define A 257 

48 # define B 258 

49 # define C 259 

50 # define E 260 

51 # define F 261 

52 # define I 262 

53 # define L 263 

54 # define N 264 

55 # define P 265 

56 # define R 266 
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57 # define S 267 

58 # define T 268 

59 # define SP 269 

60 # define CRLF 270 

61 # define COMMA 271 

62 # define STRING 272 

63 # define NUMBER 273 

64 # define USER 274 

65 # define PASS 275 

66 # define ACCT 276 

67 # define REIN 277 

68 # define QUIT 278 

69 # define PORT 279 

70 # define PASV 280 

71 # define TYPE 281 

72 # define STRU 282 

73 # define MODE 283 

74 # define RETR 284 

75 # define STOR 285 

76 # define APPE 286 

77 # define MLFL 287 

78 # define MAIL 288 

79 # define MSND 289 

80 # define MSOM 290 

81 # define MSAM 291 

82 # define MRSQ 292 

83 # define MRCP 293 

84 # define ALLO 294 

85 # define REST 295 

86 # define RNFR 296 

87 # define RNTO 297 

88 # define ABOR 298 

89 # define DELE 299 

90 # define CWD 300 

91 # define LIST 301 

92 # define NLST 302 

93 # define SITE 303 

94 # define STAT 304 

95 # define HELP 305 

96 # define NOOP 306 

97 # define XMKD 307 

98 # define XRMD 308 

99 # define XPWD 309 

100 # define XCUP 310 

101 # define LEXERR 311 

102 #define yyclearin yychar = -1 

103 #define yyerrok yyerrflag = 

104 extern int yychar; 

105 extern short yyerrflag; 

106 #ifndef YYMAXDEPTH 

107 #define YYMAXDEPTH 150 

108 #endif 

109 #ifndef YYSTYPE 

110 #define YYSTYPE int 

111 #endif 

112 YYSTYPE yylval = 0, yyval = 0; 
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114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 



# define YYERRCODE 256 

# line 539 "ftpcmd.y" 



#ifdef zilog 

extern ret_buf errcatch; 

#else 

extern jmp_buf errcatch; 

#endif 



#define CMD 

#define ARGS 1 

#de£ine STR1 2 

#define STR2 3 

#define OSTR 4 

struct tab { 
char 
short 
short 
short 
char 

}; 

struct tab cmdtab[ 
{ "USER", 
' "PASS" 



/"' beginning of command */ 

I* expect miscellaneous arguments */ 

/* expect SP followed by STRING */ 

/* expect STRING */ 

/* optional STRING */ 



*name ; 

token; 

state; 

implemented; 

"help; 



'ACCT" 
"REIN" 
"QUIT" 
"PORT" 
"PASV" 
"TYPE" 
"STRU" 
"MODE" 
"RETR" 
"STOR" 
"APPE" 
"MLFL" 
"MAIL" 
"MSND" 
"MSOM" 
"MSAM" 
"MRSQ" 
"MRCP" 
"ALLO" 
"REST" 
"RNFR" 
"RNTO" 
"ABOR" 
"DELE" 
"CWD", 
"XCWD" 
"LIST" 
"NLST" 



] = ( 

USER 

PASS 

ACCT 

REIN 

QUIT 

PORT 

PASV 

TYPE 

STRU 

MODE 

RETR 

STOR 

APPE 

MLFL 

MAIL 

MSND 

MSOM 

MSAM 

MRSQ 

MRCP 

ALLO 

REST 

RNFR 

RNTO 

ABOR 

DELE 

CWD, 

CWD, 

LIST, 

NLST, 



STR1, 


1, 


STR1, 


1, 


STR1, 


o, 


ARGS, 


o, 


ARGS, 


1, 


ARGS, 


1, 


ARGS, 


o, 


ARGS, 


1, 


ARGS, 


1, 


ARGS, 


1, 


STR1, 


1, 


STR1, 


1, 


STR1, 


1, 


OSTR, 


o, 


OSTR, 


o, 


OSTR, 


o, 


OSTR, 


o, 


OSTR, 


o, 


OSTR, 


o, 


STR1, 


o, 


ARGS, 


1, 


STR1, 


o, 


STR1, 


1, 


STR1, 


1, 


ARGS, 


o, 


STR1, 


1, 


OSTR, 


1, 


OSTR, 


1, 


OSTR, 


1, 


OSTR, 


1, 



I* 1 if command is implemented */ 



In order defined in RFC 765 */ 
"<sp> username" }, 
"<sp> password" }, 
"(specify account)" }, 
"(reinitialize server state)" }, 
"(terminate service)" }, 
"<sp> bO, bl, b2, b3, b4" }, 
"(set server in passive mode)" }, 
"<sp> [ A | E | I | L ]" }, 
"(specify file structure)" }, 
"(specify transfer mode)" }, 
"<sp> file-name" }, 
"<sp> file-name" }, 
"<sp> file-name" }, 
"(mail file)" }, 
"(mail to user)" }, 
"(mail send to terminal)" }, 
"(mail send to terminal or mailbox)" }, 
"(mail send to terminal and mailbox)" }, 
"(mail recipient scheme question)" }, 
"(mail recipient)" }, 
"allocate storage (vacuously)" }, 
"(restart command)" }, 
"<sp> file-name" }, 
"<sp> file-name" }, 
"(abort operation)" }, 
"<sp> file-name" }, 
"[ <sp> directory-name]" }, 
"[ <sp> directory-name ]" }, 
"[ <sp> path-name ]" }, 
"[ <sp> path-name ]" }, 
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169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 



}; 



"SITE" 
"STAT" 
"HELP" 
"NOOP" 
"XMKD" 
"XRMD" 
"XPWD" 
"XCUP" 
XNULL, 



SITE, STR1, 0, 

STAT, OSTR, 0, 

HELP, OSTR, 1, 

NOOP, ARGS, 1, 

XMKD, STR1, 1, 

XRMD, STR1, 1, 

XPWD, ARGS, 1, 

XCUP, ARGS, 1, 

0, 0, 0, 



"(get site parameters)" }, 

"(get server status)" }, 

"[ <sp> <string> ]" }, 
.... h 

"<sp> path-name" }, 

"<sp> path-name" }, 

"(return current directory)" }, 

"(change to parent directory)" }, 

} 



struct tab * 
lookup(cmd) 

char "cmd; 
{ 



register struct tab "''p; 

for (p = cmdtab; p->name != XNULL; p++) 
if (xstrcmp(cmd, p->name) == 0) 
return (p); 
return (0); 



/* 
* getline - a hacked up version of fgets to ignore TELNET escape codes. 

*/ 

char * 

getline(s, n, iop) 

char *s ; 

register XFILE "iop; 



{ 



register c; 
register char ""cs; 

cs = s; 

while (~n > && (c = xgetc(iop)) >= 0) { 
while (c == IAC) { 

c = xgetc(iop); I* skip command */ 
c = xgetc(iop); /" try next char -7 

} 

,v cs++ = c; 

if (c=='\n') 

break; 

} 

if (c < && cs == s) 

return (XNULL); 
*cs++ = '\0'; 
if (debug) { 

xoprintf(xstderr, "FTPD: command: %s", s); 

if (c != '\n') 

xputcCV, xstderr); 

xf f lush(xstderr ) ; 

} 

return (s); 
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225 

226 static int 

227 toolongO 

228 { 

229 long now; 

230 extern long xtimeO; 
231 

232 reply(421, 

233 "Timeout (%d seconds): closing control connection.", timeout); 

234 if (logging) { 

235 xoprintf (xstderr , 

236 "FTPD: User %s timed out after %d seconds at %ld", 

237 (username ? username : "unknown"), timeout ,xtime( )) ; 

238 xfflush(xstderr); 

239 } 

240 xexit(l); 

241 } 
242 

243 yylexO 

244 { 

245 /* 

246 * Don't use register variables — Zilog S8000 setretO can't cope. 

247 */ 

248 static char cbuf[512]; 

249 static int epos, state; 

250 char *cp; 

251 struct tab *p; 

252 int n; 

253 char c; 
254 

255 for (;;) { 

256 switch (state) { 
257 

258 case CMD: 

259 if (getline(cbuf , sizeof (cbuf )-l , xstdin) == XNULL) { 

260 reply(221, "You could at least say goodbye."); 

261 xexit(O); 

262 } 

263 if (xstrchr(cbuf , '\r')) { 

264 cp = xstrchr(cbuf , '\r'); 

265 cp[0] = f \n f ; cp[l] = 0; 

266 } 

267 if (xstrchr(cbuf , ' ')) 

268 epos = xstrchr(cbuf , ' ') - cbuf; 

269 else 

270 epos = 4; 

271 c = cbuf[cpos]; 

272 cbuf [epos] = '\0' ; 

273 upper(cbuf); 

274 p = lookup (cbuf ) ; 

275 cbuf[cpos] = c; 

276 if (p != 0) { 

277 if (p->implemented == 0) { 

278 nack(p->name); 

279 xlongjmp(errcatch) ; 

280 /* NOTREACHED */ 
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281 } 

282 state = p->state; 

283 yylval = (YYSTYPE) p->name; 

284 return (p->token); 

285 } 

286 break; 
287 

288 case OSTR: 

289 if (cbuf[cpos] == f \n') { 

290 state = CMD; 

291 return (CRLF); 

292 } 

293 /* FALL THRU */ 
294 

295 case STR1: 

296 if (cbuftcpos] == ' ' ) { 

297 cpos++; 

298 state = STR2; 

299 return (SP); 

300 } 

301 break; 
302 

303 case STR2: 

304 cp = &cbuf[cpos]; 

305 n = xstrlen(cp); 

306 epos += n - 1; 

307 /* 

308 - Make sure the string is nonempty and \n terminated. 

309 */ 

310 if (n > 1 && cbuftcpos] == '\n') { 

311 cbuftcpos] = '\0' ; 

312 yylval = (YYSTYPE)copy(cp) ; 

313 cbuftcpos] = '\n' ; 

314 state = ARGS; 

315 return (STRING); 

316 } 

317 break; 
318 

319 case ARGS: 

320 if (isdigit(cbuf tcpos] )) { 

321 cp = &cbuf[cpos]; 

322 while (isdigit(cbuf t++cpos] ) ) 

323 ; 

324 c = cbuftcpos]; 

325 cbuftcpos] = '\0' ; 

326 yylval = (YYSTYPE)xatoi(cp) ; 

327 cbuftcpos] = c; 

328 return (NUMBER); 

329 } 

330 switch (cbuffcpos++]) { 

331 

332 case '\n f : 

333 state = CMD; 

334 return (CRLF); 
335 

336 
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337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 



case 



return (SP); 



return (COMMA); 



case ' 


A* 


: 




case ' 


a' 


return 


(A); 


case ' 


B' 


• 
• 




case ' 


b 1 


return 


(B); 


case ' 


C 1 


: 




case ' 


c' 


• 

return 


(O; 


case ' 


E' 


; 




case ' 


e' 


• 
return 


(E); 


case 


F' 


: 




case 


f ' 


return 


(F); 


case 


I 


• 




case 


i 


• 

return 


(i); 


case 


L 


: 




case 


1 


return 


(D; 


case 


N 


; 




case 


' n 


return 


(N); 


case 


'P 


• 




case 


'p 


return 


(P); 


case 


'R 


: 




case 


' r 


return 


(R); 


case 


'S 


• : 




case 


' s 


return 


(s); 


case 


i T 


j 




case 


' t 


return 


(T); 



} 

break: 
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398 
399 
400 
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414 
415 
416 
417 
418 
419 
420 
421 
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423 
424 
425 
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427 
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429 
430 
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432 
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435 
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438 
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440 
441 
442 
443 
444 
445 
446 
447 
448 



default: 



fatal ("Unknown state in scanner."); 
1 

state = CMD; 
yyerror( "lexical error" ); 



1 

upper(s) 

{ 



} 

YYSTYPE 
copy(s) 

{ 
/* 



char *s ; 

while (*s != '\0') { 

if (islower(*s) ) 

*s = _toupper( >v s) ; 

s++; 
} 



1 
help(s) 

{ 



char * s ; 

char *p; 

extern char *xmalloc( ) ; */ 

p = xmalloc((xstrlen(s) + 1)); 
if (p == XNULL) 

fatal("Ran out of memory."); 
xstrcpy(p, s); 
return ( (YYSTYPE)p) ; 



char " s ; 

register struct tab *c; 
register int width, NCMDS; 

width = 0, NCMDS = 0; 

for (c = cmdtab; c->name != XNULL; C++) { 
int len = xstrlen(c->name) ; 

if (c->implemented == 0) 

len++; 
if (len > width) 

width = len; 
NCMDS++; 

1 

width = (width + 8) &~ 7; 

if (s == 0) { 

register int i, j, w; 

int columns, lines; 



lreply(214, 
"The following commands are recognized (* =>'s unimplemented) .") ; 
columns = 76 / width; 
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449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 



if (columns == 0) 

columns = 1 ; 
lines = (NCMDS + columns - 1) / columns; 
for (i = 0; i < lines; i++) { 

xoprintf (xstdout ," "); 

for (j = 0; j < columns; j++) { 

c = cmdtab + j * lines + i; 
xoprintf (xstdout, "%s%c", c->name, 

c->implemented ? ' ' : '*')» 
if (c + lines >= &cmdtab[NCMDS] ) 

break; 
w = xstrlen(c->name) ; 
while (w < width) { 

xputchar( ' ' ) ; 
w++; 
} 
} 
xoprintf (xstdout ,"\r\n") ; 

} 

xf flush( xstdout ) ; 

reply(214, "Direct comments to f tp-bugs@%s. M , hostname); 

return; 

} 

upper(s) ; 

c = lookup(s); 

if (c == (struct tab *)0) { 

reply (504, "Unknown command %s.", s); 

return; 

} 

if (c->implemented) 

reply(214, "Syntax: %s %s", c->name, c->help); 
else 

reply(214, "%-*s\t%s; unimplemented.", width, c->name, c->help); 



} 

short yyexca[] ={ 

-1, 1, 

0, -1, 
-2, 0, 

}; 

# define YYNPROD 60 

# define YYLAST 208 
short yyact[]={ 



103, 

112, 
25, 

142, 
81, 
22, 

132, 
97, 

102, 
75, 
29, 
68, 
60, 



26, 


54, 


77, 


63, 


5, 


148, 


13, 


144, 


28, 


82, 


20, 


21, 


134, 


133, 


100, 


98, 


51, 


46, 


79, 


78, 


30, 


74, 


37, 


67, 


64, 


62, 



149, 


147, 


145, 


88, 


61, 


59, 


6, 


146, 


7, 


99, 


87, 


86, 


16, 


17, 


15, 


23, 


24, 


139, 


131, 


128, 


119, 


127, 


96, 


104, 


101, 


94, 


93, 


76, 


36, 


35, 


70, 


125, 


109, 


53, 


27, 


111, 


38, 


39, 


40, 



105, 


143, 


105, 


124, 


141, 


57, 


3, 


4, 


8, 


9, 


11, 


12, 


84, 


83, 


10, 


140, 


14, 


45, 


44, 


19, 


138, 


137, 


136, 


135, 


108, 


107, 


106, 


126, 


95, 


92, 


91, 


52, 


90, 


89, 


85, 


80, 


34, 


33, 


32, 


31, 


65, 


72, 


71, 


66, 


18, 


73, 


110, 


69, 


41, 


42, 


43, 


58, 
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505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 



56 






123 



2, 
0, 
0, 
0, 
0, 
0, 
117, 
115, 



47, 48, 49, 50, 1, 

0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 

0, 0, 0, 0, 0, 

0, 0, 0, 113, 114, 

0, 118, 0, 120, 121, 

0, 116, 



0, 55, 

0, 0, 

0, 0, 

0, 0, 

0, 130, 

0, 0, 

0, 122, 




0, 136, 131, 130, 129, 122, 121, 120, 119, 117, 
110, 105, 118, 116, 75, 104, 115, 114, 113 }; 
short yyrl[]={ 



0, 
2, 
2, 
2, 
7, 
9, 



1, 
2, 
2, 
3, 
7, 
9, 



1, 
2, 
2, 
4, 
7, 
9, 



short yyr2[ ]={ 



2, 2, 

2, 2, 

2, 2, 

5, 14, 

7, 7, 

11, 12, 



0, 
4, 
5, 
2, 
3, 
1, 



0, 

5, 
1, 
1, 
1, 
1, 



2, 
5, 
2, 
1, 
3, 
1, 



4, 
5, 
4, 
1, 
1, 
1, 



4, 
3, 
2, 

1, 
1, 
1, 



2, 
2, 
2, 
6, 
7, 
16, 



4, 
5, 
5, 
11, 
3, 
1, 



2, 
2, 
2, 

15, 
7, 

13, 



4, 
3, 
5, 
1, 
2, 
2, 



2, 
2, 
2, 

15, 
8, 

17, 



4, 
5, 
3, 

1, 
1, 
5, 



2, 
2, 
2, 

15, 
8, 

18, 



4, 
5, 
3, 

1, 
1, 
4, 



2, 
2, 
2, 
7, 
8, 
10 }; 



4, 
3, 
2, 
1, 
1, 

o }; 



short yychk[ ]={ 



-1000, -1, -2, 274, 275, 276, 279, 281, 282, 283, 

294, 284, 285, 286, 302, 301, 299, 300, -13, 305, 

306, 307, 308, 309, 310, 278, 256, -17, 296, 269, 

269, 269, 269, 269, 269, 269, 269, -10, -10, -10, 

-10, -10, -10, -10, 270, 269, 270, -10, -10, -10, 

-10, 270, 270, -18, 297, -10, -3, 272, -4, 272, 

-5, 272, -6, 273, -7, 257, 260, 262, 263, -8, 

261, 266, 265, -9, 267, 258, 259, 273, 269, 269, 

269, 270, 269, 270, 269, 269, 270, 269, 272, 269, 
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561 


269, 


270, 270, : 


269, 


269, 


270, 


270, 


270, 


270, 


271, 


562 


270, 


269, 269, : 


269, 


"14, 


273, 


270, 


270, 


270, 


-11, 


563 


"12, 


-16, 272, - 


-11, 


-11, 


"12, 


"12, 


-11, 


-11, 


270, 


564 


-11, 


-11, -11, • 


-11, 


273, 


-15, 


264, 


268, 


259, 


"15, 


565 


"14, 


270, 270, : 


270, 


270, 


270, 


270, 


270, 


270, 


270, 


566 


270, 


270, 271, : 


273, 


271, 


273, 


271, 


273, 


271, 


273 }; 


567 


short 


yydef []={ 
















568 




















569 


1, 


"2, 2, 


o, 


o, 


o, 


o, 


o, 


o, 


0, 


570 


o, 


59, 59, 


59, 


59, 


59, 


59, 


59, 


21, 


o, 


571 


o, 


59, 59, 


59, 


59, 


o, 


o, 


o, 


59, 


o, 


572 


o, 


0, 0, 


o, 


o, 


o, 


o, 


o, 


o, 


o, 


573 


o, 


0, 0, 


o, 


22, 


o, 


24, 


o, 


o, 


o, 


574 


o, 


29, 30, 


56, 


o, 


o, 


o, 


31, 


o, 


32, 


575 


o, 


33, 0, 


o, 


o, 


39, 


41, 


43, 


44, 


o, 


576 


47, 


48, 49, 


o, 


50, 


51, 


52, 


o, 


o, 


o, 


577 


o, 


14, 0, 


16, 


o, 


o, 


19, 


o, 


o, 


o, 


578 


o, 


27, 28, 


o, 


o, 


3, 


4, 


5, 


6, 


o, 


579 


7, 


o, o, 


o, 


46, 


34, 


8, 


9, 


10, 


o, 


580 


53, 


54, 55, 


o, 


o, 


o, 


o, 


o, 


o, 


23, 


581 


o, 


0, 0, 


o, 


o, 


40, 


36, 


37, 


38, 


42, 


582 


45, 


11, 12, 


13, 


15, 


17, 


18, 


20, 


25, 


26, 


583 


58, 


57, 0, 


o, 


o, 


o, 


o, 


o, 


o, 


35 }; 


584 


#ifndef lint 
















585 


static char yacc 


3ar 


sccsi( 


i[] = 


"@(#)yacc 


par 


4.1 


586 


#endii 


: not lint 
















587 




















588 


# 


















589 


# def 


Lne YYFLAG 


-1000 












590 


# def 


Lne YYERROR 


goto yyei 


rrlab 










591 


# def 


Lne YYACCEPT return(O) 










592 


# def 


Lne YYABORT 


ret urn ( 1 ) 










593 




















594 


/* 


parser f 


or yacc output 


*/ 








595 




















596 


#ifde 


£ YYDEBUG 
















597 


#endi 


£ 
















598 


YYSTYPE yyv[YYMAXDEPTH] = 


{ o 


}; /* 


where the 


values 


599 


int yychar = -1; 


/* 


current in 


jut token 


number */ 


600 


int yynerrs = 0; 


/* 


numb 


er of 


errors */ 






601 


short 


yyerrf lag 


= 0; 


/* 


error 


recovery 


flag 


*/ 


602 




















603 


yypar 


se() { 
















604 




















605 




short yy 


s[yymaxdepth]; 










606 




short yyj, yym; 












607 




register 


YYSTYPE 


A-yypv 


t; 








608 




register 


short yy 


state 


, -yyps, yyn; 




609 




register 


YYSTYPE 


-yypv 


» 








610 




register 


short *yyxi; 










611 




















612 




yystate 


= 0; 














613 




yychar = 


-i; 














614 




yynerrs 


= 0; 














615 




yyerrf la 


g = 


o; 












616 




yyps= &yys[- 


i]; 













(Berkeley) 2/11/83"; 
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617 yypv= &yyv[-l]; 

618 

619 yystack: /* put a state and value onto the stack */ 

620 

621 #ifdef YYDEBUG 

622 #endif 

623 if( ++yyps> &yys[YYMAXDEPTH] ) { yyerror( "yacc stack overflow" ); retu 

624 "''yyps = yystate; 

625 ++ yypv; 

626 *yypv = yyval ; 
627 

628 yynewstate: 

629 

630 yyn = yypact[yystate] ; 

631 

632 if( yyn<= YYFLAG ) goto yydefault; /* simple state */ 

633 

634 if( yychar<0 ) i£( (yychar=yylex( ) )<0 ) yychar=0; 

635 if( (yyn += yychar)<0 || yyn >= YYLAST ) goto yydefault; 
636 

637 if( yychk[ yyn=yyact[ yyn ] ] == yychar ){ /* valid shift */ 

638 yychar = -1; 

639 yyval = yylval; 

640 yystate = yyn; 

641 if( yyerrflag > ) — yyerrflag; 

642 goto yystack; 

643 } 
644 

645 yydefault: 

646 /" default state action */ 
647 

648 if( (yyn=yydef [yystate] ) == -2 ) { 

649 if( yychar<0 ) if( (yychar=yylex( ) )<0 ) yychar = 0; 

650 /" look through exception table */ 
651 

652 for( yyxi=yyexca; («yyxi!= (-1)) || (yyxi[ 1 ] ! =yystate) ; yyxi += 2 ) ; 

653 

654 while( *(yyxi+=2) >= ){ 

655 if( v "yyxi == yychar ) break; 

656 } 

657 if( (yyn = yyxi[l]) < ) return(O); /* accept */ 

658 } 
659 

660 if( yyn == ){ /* error -'/ 

661 /* error ... attempt to resume parsing */ 
662 

663 switch( yyerrflag ){ 

664 

665 case 0: /* brand new error */ 

666 

667 yyerror( "syntax error" ); 

668 yyerrlab: 

669 ++yynerrs; 
670 

671 case 1: 

672 case 2: /* incompletely recovered error ... try again "-'"/ 
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673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 



#ifdef YYDEBUG 
#endif 



yyerrflag = 3; 

/" find a state where "error" is a legal shift action */ 

while ( yyps >= yys ) { 

yyn = yypact[*yyps] + YYERRCODE; 

if( yyn>= && yyn < YYLAST && yychk[yyact[yyn] ] == YYERRCOD 

yystate = yyact[yyn]; /* simulate a shift of "error" */ 

goto yystack; 

} 
yyn = yypact [ *yyps] ; 

/* the current yyps has no shift onn "error", pop stack */ 



•yyps; 
■yypv; 



/* there is no state on the stack with an error shift ... abort 



yyabort 



#ifdef 
#endif 



YYDEBUG 



return(l) ; 



case 3: /* no shift yet; clobber input char */ 



if( yychar == ) goto yyabort; /* don't discard EOF, quit */ 

yychar = -1; 

goto yynewstate; /* try again in the same state */ 



1 



} 



#ifdef 
#endif 



/* reduction by production yyn */ 

YYDEBUG 

yyps -= yyr2[yyn]; 
yypvt = yypv; 
yypv -= yyr2[yyn]; 
yyval = yypv[l]; 
yym=yyn ; 

/* consult goto table to find next state */ 
yyn = yyrl[yyn] ; 

yyj = yypgo[yyn] + -yyps + l; 

if( yyj>=YYLAST | | yychk[ yystate = yyact[yyj] ] != -yyn ) yystate 
switch(yym){ 



yy 



case 2 
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729 # line 75 "ftpcmd.y" 

730 { 

731 if( globargs ) 

732 xdealglob( globargs ); 

733 globargs = (char **)0; 

734 } break; 

735 case 3; 

736 # line 83 "ftpcmd.y" 

737 { 

738 int success; 
739 

740 if( logged_in ) 

741 { 

742 reply(531, "Already logged in."); 

743 xfree( yypvt[-l] ); 

744 } 

745 else if ((success = 

746 xinit_env(yypvt[-l], (char *)0, (char *)0)) 

747 <= 

748 ) 

749 { 

750 guest = 0; 

751 reply(331, "Password required for %s.", yypvt[-l]); 

752 if( username ) 

753 xfree( username ); 

754 username = yypvt[-l]; 

755 } 

756 else if ( success < ) 

757 { 

758 /* 

759 Do we want to give out this inf ormantion? 

760 */ 

761 reply(530, "User %s unknown.", yypvt[-l])*, 

762 xfree(yypvt[-l]); 

763 if( username ) 

764 xfree( username ); 

765 username = (char *)0; 

766 } 

767 else 

768 { 

769 username = yypvt[-l]; 

770 reply(230, "User %s logged in.", yypvt[.-l])*, 

771 loggedin = 1; 

772 } 

773 } break; 

774 case 4: 

775 # line 121 "ftpcmd.y" 

776 { 

777 int success; 
778 

779 if( '.username ) 

780 { 

781 reply(530, "Log in with user first."); 

782 xfree( yypvt[-l] ); 

783 } 

784 else if( logged in ) 
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785 { 

786 reply(531, "Already logged in.")*, 

787 xfree( yypvt[-l] ); 

788 } 

789 else if ((success = 

790 xinit_env(username, yypvt[-l], (char *)0)) 

791 == 

792 ) 

793 { 

794 guest = 0; 

795 reply(331 /'Account required for %s.", username); 

796 if( userpass ) 

797 xfree( userpass ); 

798 userpass = yypvt[-l]; 

799 } 

800 else if ( success > ) 

801 { 

802 userpass = yypvt[-l]; 

803 reply(230, "User %s logged in.", username); 

804 logged_in = 1; 

805 } 

806 else /* sucess < (tricotomy) */ 

807 { 

808 reply( 530, "Login failed." ); 

809 xfree( yypvt[-l] ); 

810 } 

811 } break; 

812 case 5: 

813 # line 158 "ftpcmd.y" 

814 { 

815 int success; 
816 

817 if( !username ) 

818 { 

819 reply(530, "Log in with user first."); 

820 xfree( yypvt[-l] ); 

821 } 

822 else if( loggedin ) 

823 { 

824 reply(531, "Already logged in."); 

825 xfree( yypvt[-l] ); 

826 } 

827 else if ((success = 

828 xinit_env(username, userpass, yypvt[-l])) 

829 <= 

830 ) 

831 { 

832 guest = 0; 

833 reply( 530, "Login incorrect." ); 

834 xfree( yypvt[-l] ); 

835 } 

836 else if ( success > ) 

837 { 

838 reply(230, "User %s logged in.", username); 

839 logged in = 1; 

840 xfree( yypvt[-l] ); 
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841 } 

842 } break; 

843 case 6: 

844 # line 188 "ftpcmd.y" 

845 { 

846 usedefault = 0; 

847 ack(yypvt[-3]); 

848 } break; 

849 case 7: 

850 # line 193 "ftpcmd.y" 

851 { 

852 switch (cmdtype) { 
853 

854 case TYPE_A: 

855 if (cmd_form == FORM_N) { 

856 reply(200, "Type set to A."); 

857 type = cmdtype; 

858 form = cmd_form; 

859 } else 

860 reply(504, "Form must be N."); 

861 break; 
862 

863 case TYPEE: 

864 reply(504, "Type E not implemented."); 

865 break; 
866 

867 case TYPEI : 

868 reply(200, "Type set to I."); 

869 type = cmdtype; 

870 break; 
871 

872 case TYPEL: 

873 if (cmd_bytesz == 8) { 

874 reply(200, 

875 "Type set to L (byte size 8)."); 

876 type = cmd_type; 

877 } else 

878 reply(504, "Byte size must be 8."); 

879 } 

880 } break; 

881 case 8: 

882 # line 224 "ftpcmd.y" 

883 { 

884 switch ( (int )yypvt[-l] ) { 
885 

886 case STRUF: 

887 reply(200, "STRU F ok."); 

888 break; 
889 

890 default: 

891 reply(502, "Unimplemented STRU type."); 

892 } 

893 } break; 

894 case 9: 

895 # line 236 "ftpcmd.y" 

896 { 
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897 switch ((int )yypvt[-l] ) { 

898 

899 case MODES: 

900 reply(200, "MODE S ok. 11 ); 

901 break; 
902 

903 default: 

904 reply(502, "Unimplemented MODE type."); 

905 } 

906 } break; 

907 case 10: 

908 # line 248 "ftpcmd.y" 

909 { 

910 ack(yypvt[-3]); 

911 } break; 

912 case 11: 

913 # line 252 "ftpcmd.y" 

914 { 

915 if (yypvt[-3] && yypvt[-l] != XNULL) 

916 retrieve(0, yypvt[-l]); 

917 } break; 

918 case 12: 

919 # line 257 "ftpcmd.y" 

920 { 

921 if (yypvt[-3] && yypvt[-l] != XNULL) 

922 store(yypvt[-l], "w"); 

923 } break; 

924 case 13: 

925 # line 262 "ftpcmd.y" 

926 { 

927 if (yypvt[-3] && yypvt[-l] != XNULL) 

928 store(yypvt[-l], "a"); 

929 } break; 

930 case 14: 

931 # line 267 "ftpcmd.y" 

932 { 

933 if (yypvt[-l]) 

934 retrieve( LS, ""); 

935 } break; 

936 case 15: 

937 # line 272 "ftpcmd.y" 

938 { 

939 if (yypvt[-3] && yypvt[-l] != XNULL) 

940 retrieve( LS_ARG, yypvt[-l]); 

941 if (yypvt[-l] != XNULL) 

942 xfree(yypvt[-l] ); 

943 } break; 

944 case 16: 

945 # line 279 "ftpcmd.y" 

946 { 

947 if (yypvtC-l]) 

948 retrieve( LSLONG, ""); 

949 } break; 

950 case 17: 

951 # line 284 "ftpcmd.y" 

952 { 
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953 if (yypvt[-3] && yypvt[-l] != XNULL) 

954 retrieve( LSLONG_ARG, yypvt[-l]); 

955 if (yypvt[-l] != XNULL) 

956 xf ree(yypvt[-l] ) ; 

957 } break; 

958 case 18: 

959 # line 291 "f tpcmd.y" 

960 { 

961 if (yypvt[-3] && yypvt[-l] != XNULL) 

962 delete(yypvt[-l]); 

963 } break; 

964 case 19: 

965 # line 296 "f tpcmd.y" 

966 { 

967 if (yypvt[-l]) 

968 xchdir( (char *)0, HOMEDIR); 

969 } break; 

970 case 20: 

971 # line 301 "f tpcmd.y" 

972 { 

973 if (yypvt[-3] && yypvt[-l] != XNULL) 

974 cwd(yypvt[-l], FILE_NAME ); 

975 } break; 

976 case 22: 

977 # line 307 "ftpcmd.y" 

978 { 

979 help(0); 

980 } break; 

981 case 23: 

982 # line 311 "ftpcmd.y" 

983 { 

984 help(yypvt[-l]); 

985 } break; 

986 case 24: 

987 # line 315 "ftpcmd.y" 

988 { 

989 ack(yypvt[-l]); 

990 } break; 

991 case 25: 

992 # line 319 "ftpcmd.y" 

993 { 

994 if (yypvt[-3] && yypvt[-l] != XNULL) 

995 makedir(yypvt[-l]); 

996 } break; 

997 case 26: 

998 # line 324 "ftpcmd.y" 

999 { 

1000 if (yypvt[-3] && yypvt[-l] != XNULL) 

1001 removedir(yypvt[-l] ) ; 

1002 } break; 

1003 case 27: 

1004 # line 329 "ftpcmd.y" 

1005 { 

1006 if (yypvtt-1]) 

1007 pwd(); 

1008 } break; 
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1009 case 28: 

1010 # line 334 "ftpcmd.y" 

1011 { 

1012 if (yypvt[-l] && ! inappropriate_request(". .")) 

1013 cwd("..", UP_DIRECTORY ); 

1014 } break; 

1015 case 29: 

1016 # line 339 "ftpcmd.y" 

1017 { 

1018 reply(221, "Goodbye."); 

1019 xexit(O); 

1020 } break; 

1021 case 30: 

1022 # line 344 "ftpcmd.y" 

1023 { 

1024 yyerrok; 

1025 } break; 

1026 case 35: 

1027 # line 363 "ftpcmd.y" 

1028 { 

1029 register char *a, *p; 
1030 

1031 a = (char *)&data dest .sin_addr ; 

1032 a[0] = (int)yypvtr-lO]; a[l] = (int )yypvt[-8] ; 

1033 a[2] = (int)yypvt[-6]; a[3] = (int )yypvt[-4] ; 

1034 p = (char *)&data dest. sin port; 

1035 p[0] = (int)yypvtl>2]; p[lT = (int )yypvt[-0] ; 

1036 datadest .sin_family = AF_INET; 

1037 } break; 

1038 case 36: 

1039 # line 376 "ftpcmd.y" 

1040 { 

1041 yyval = (YYSTYPE)FORMN; 

1042 } break; 

1043 case 37: 

1044 # line 380 "ftpcmd.y" 

1045 { 

1046 yyval = (YYSTYPE)FORMT; 

1047 } break; 

1048 case 38: 

1049 # line 384 "ftpcmd.y" 

1050 { 

1051 yyval = (YYSTYPE)FORM C; 

1052 } break; 

1053 case 39: 

1054 # line 390 "ftpcmd.y" 

1055 { 

1056 cmd_type = TYPE_A; 

1057 cmd_form = FORM_N; 

1058 } break; 

1059 case 40: 

1060 # line 395 "ftpcmd.y" 

1061 { 

1062 cmd_type = TYPE_A; 

1063 cmd_form = ( int )yypvt[-0] ; 

1064 } break; 
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1065 case 41: 

1066 # line 400 "f tpcmd.y" 

1067 { 

1068 cmd_type = TYPE_E; 

1069 cmd_£orm = FORM_N; 

1070 } break; 

1071 case 42: 

1072 # line 405 "ftpcmd.y" 

1073 { 

1074 cmd_type = TYPE_E; 

1075 cmd_form = (int )yypvt[-0] ; 

1076 } break; 

1077 case 43: 

1078 # line 410 "ftpcmd.y" 

1079 { 

1080 cmd_type = TYPE_I ; 

1081 } break; 

1082 case 44: 

1083 # line 414 "ftpcmd.y" 

1084 { 

1085 cmd_type = TYPE_L; 

1086 cmdbytesz = 8; 

1087 } break; 

1088 case 45: 

1089 # line 419 "ftpcmd.y" 

1090 { 

1091 cmd_type = TYPE_L; 

1092 cmd_bytesz = (int )yypvt[-0] ; 

1093 } break; 

1094 case 46: 

1095 # line 425 "ftpcmd.y" 

1096 { 

1097 cmd_type = TYPE_L; 

1098 cmd_bytesz = (int )yypvt[-0] ; 

1099 } break; 

1100 case 47: 

1101 # line 432 "ftpcmd.y" 

1102 { 

1103 yyval = (YYSTYPE)STRUF; 

1104 } break; 

1105 case 48: 

1106 # line 436 "ftpcmd.y" 

1107 { 

1108 yyval = (YYSTYPE)STRU R; 

1109 } break; 

1110 case 49: 

1111 # line 440 "ftpcmd.y" 

1112 { 

1113 yyval = (YYSTYPE)STRUP; 

1114 } break; 

1115 case 50: 

1116 # line 446 "ftpcmd.y" 

1117 { 

1118 yyval = ( YYSTYPE)MODE_ S; 

1119 } break; 

1120 case 51: 
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1121 # line 450 "ftpcmd.y" 

1122 { 

1123 yyval = (YYSTYPE)MODE_B; 

1124 } break; 

1125 case 52: 

1126 # line 454 "ftpcmd.y" 

1127 { 

1128 yyval = (YYSTYPE)MODE_C; 

1129 } break; 

1130 case 53: 

1131 # line 460 "ftpcmd.y" 

1132 { 

1133 char *argv[2]; 
1134 

1135 argv[0] = (char *)yypvt[-0]; 

1136 argv[l] = (char *)0; 

1137 globargs = xglob(argv); 

1138 if (globerr != XNULL) { 

1139 reply(550, globerr); 

1140 yyval = (YYSTYPE)XNULL; 

1141 } else if ( globargs == XNULL | j *globargs == XNULL ) { 

1142 reply(550, "No file name matches."); 

1143 yyval = (YYSTYPE)XNULL; 

1144 } else { 

1145 yyval = (YYSTYPE)*globargs; 

1146 } 

1147 if (inappropriaterequest (yyval)) 

1148 yyval = (YYSTYPE)XNULL; 

1149 xfree(yypvt[-0]); 

1150 } break; 

1151 case 54: 

1152 # line 482 "ftpcmd.y" 

1153 { 

1154 if (yypvt[-0] && inappropriate_request(yypvt[-0] ) ) { 

1155 yyval = (YYSTYPE)XNULL; 

1156 xfree(yypvt[-0] ) ; 

1157 } else 

1158 yyv^l = yypvt[-o]; 

1159 } break; 

1160 case 56: 

1161 # line 495 "ftpcmd.y" 

1162 { 

1163 if (yypvt[-l] && yypvt[-0]) 

1164 renamecmd(yypvt[-l] , yypvt[-0]); 

1165 else 

1166 reply(503, "Bad sequence of commands."); 

1167 /* 

1168 " Since two path names are involved, we should delalocate 

1169 * space for the first one, as globargs contains the result 

1170 * of the second globbing, and will be dealocated when 

1171 * the reduction to cmd takes place. 

1172 */ 

1173 if (rnfglob) 

1174 xdealglob(rnfglob) ; 

1175 } break; 

1176 case 57: 
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1177 # line 512 "ftpcmd.y" 

1178 { 

1179 char "from = 0, *renamefrom( ) ; 
1180 

1181 if (yypvt[-3] && yypvt[-l]) 

1182 from = renamefrom(yypvt[-l]) ; 

1183 rnf_glob = globargs; 

1184 yyval = (YYSTYPE)f rom; 

1185 } break; 

1186 case 58: 

1187 # line 523 "ftpcmd.y" 

1188 { 

1189 yyval = yypvt[-l]; 

1190 } break; 

1191 case 59: 

1192 # line 529 "ftpcmd.y" 

1193 { 

1194 if (logged_in) 

1195 yyval = (YYSTYPE)l; 

1196 else { 

1197 reply(530, "Please login with USER and PASS."); 

1198 yyval = (YYSTYPE)O; 

1199 } 

1200 } break; 

1201 } 

1202 goto yystack; /* stack new state and value */ 
1203 

1204 } 
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1 #ifndef lint 

2 static char sccsidU = " @(#)ftpd.c 1.16 7/29/85"; 

3 #endif 
4 

5 /* 

6 * FTP server. 

7 */ 

8 #include "ftpd.h" 
9 

10 extern long xpasstnetO, xpassfnetO; 

11 extern char version[]; 

12 extern XFILE -xodopenO; 

13 /* 

14 extern int fcloseO; 

15 */ 

16 extern char *xrerror(); 

17 extern int xcloseO; 

18 extern char **xmkarglist( ) ; 

19 extern char **xglob( ) ; 

20 extern char *globerr; 
21 

22 struct sckadr_in ctrl_addr = { AF_INET }; 

23 struct sckadrin data_source = { AF_INET }; 

24 struct sckadr_in data_dest = { AF_INET }; 

25 struct sckadr_in his_addr = { AF_INET }; 
26 

27 struct hostent *hp = 0; 
28 

29 int data = 0; 

30 #ifde£ zilog 

31 ret_bu£ errcatch; 

32 #else 

33 jmpbuf errcatch = { }; 

34 #endif 

35 int loggedin = 0; 

36 int debug = 0; 

37 int timeout = 0; 

38 int logging = 0; 

39 int guest = 0; 

40 int type = 0; 

41 int form = 0; 

42 int stru =0; /* avoid C keyword */ 

43 int mode = 0; 

44 int bytesize = 0; 

45 int usedefault = 1; /* for data transfers */ 

46 char hostname[32] = {0}; 

47 char *remotehost = (char *)0; 

48 struct servent *sp = (struct servent *)0; 
49 

50 /* 

51 * Timeout intervals for retrying connections 

52 * to hosts that don't accept PORT cmds. This 

53 * is a kludge, but given the problems with TCP... 

54 */ 

55 #define SWAITMAX 90 /* wait at most 90 seconds */ 

56 #define SWAITINT 5 /* interval between retries */ 
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57 

58 int swaitmax = SWAITMAX; 

59 int swaitint = SWAITINT; 
60 

61 int lostconnO; 

62 XFILE »dataconn(); 

63 char *ntoa(); 
64 

65 £tpdoit( s, from ) 

66 /* 

67 start of generic ftp demon code 

68 */ 
69 

70 int s; 

71 struct sckadrin ""from; 

72 { 

73 if (logging) 

74 dolog(&his_addr); 

75 xdup2(s, 0); 

76 i£( s != ) 

77 xclose(s); 

78 xdup2(0, 1); 

79 xodopen( 0, "r" ); 

80 xodopen( 1, "w" ); 

81 /* do telnet option negotiation here "/ 

82 /* 

83 * Set up default state 

84 */ 

85 data = -1; 

86 type = TYPE_A; 

87 form = FORM_N; 

88 stru = STRU_F; 

89 mode = M0DE_S; 

90 bytesize = 8; 

91 sp = gsbname("ftp", "tcp"); 

92 if (sp == 0) { 

93 xoprintf (xstderr , "ftpd: ftp/tcp: unknown service\n"); 

94 xexit(l); 

95 } 

96 xghname( hostname, sizeof (hostname)); 

97 ctrl_addr ,sin_port = xhtons(sp->s_port ) ; 

98 data_source.sin_port = xhtons(sp->s_port - 1); 

99 reply(22Q, M %s FTP server (%s) ready.", hostname, version); 

100 for (;;) { 

101 xset jmp(errcatch) ; 

102 if( logging ) 

103 { 

104 xoprintf ( xstderr, "calling yyparse\n" ); 

105 xfflush( xstderr ); 

106 } 

107 yyparseO; 

108 } 

109 } 
110 

111 lostconnO 

112 { 



Apr 30 23:04 1986 ftpd.c Page 3 

113 

114 fatal("Connection closed."); 

115 } 
116 

117 retrieve(cmd, name) 

118 int cmd; 

119 char ''"name; 

120 { 

121 XFILE *fin, *dout; 

122 int inod; 

123 int ("dosefuncK ) ; 

124 int omode; 

125 struct £tp_attr attributes; 

126 char *argvl[2] ; 

127 char **argv2; 

128 char **argv3; 

129 char *pt; 
130 

131 if (cmd == 0) { 

132 /* 

133 simple file 

134 */ 

135 omode = XFREAD; 

136 attributes .rep_type = type; 

137 attributes .format = form; 

138 attributes. structure = stru; 

139 attributes. trans mode = mode; 

140 attributes .byte_sz = bytesize; 

141 inod = xftpopen( name, omode, FILENAME, &at tributes ); 

142 if (inod < ) { 

143 reply(550, H %s: %s.", name, xrerror( inod )); 

144 return; 

145 } 

146 fin = xodopen( inod, "r"); 

147 if ( fin == XNULL ) { 

148 reply(550, "xodopen failed. "); 

149 return; 

150 } 

151 closefunc = xclose; 

152 } else { 

153 /* 

154 we are to generate a psuedo file, 

155 at the moment some form of Is => call xls after opening 

156 data connection. 

157 */ 

158 } 

159 dout = dataconn(name, (offt)O, "w"); 

160 if (dout == XNULL) 

161 goto done; 

162 if( cmd ) 

163 { 

164 /* 

165 a psuedo file object ( Is, Is -lg) 

166 */ 

167 if( xstrlen( name ) ) 

168 { 
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169 /* 

170 name may require globbing (for remote globbing). 

171 */ 

172 argvl[0] = name; 

173 argvl[l] = (char *)0; 

174 argv2 = xglob( argvl ); 

175 if ( argv2 == XNULL | | globerr ) 

176 { 

177 xclose( xf ileno(dout) ); 

178 . data = -1; 

179 reply( 500, "Remote glob failed. %s", globerr ); 

180 if( argv2 != XNULL ) 

181 xdealglob( argv2 ); 

182 return; 

183 } 

184 argv3 = argv2; 

185 for( pt = *argv3++ ; pt ; pt = *argv3++ ) 

186 { 

187 xls( xf ileno(dout), pt, cmd ); 

188 } 

189 xdealglob( argv2 ); 

190 } 

191 else 

192 { 

193 xls( xf ileno(dout), name, cmd ); 

194 } 

195 xclose( xf ileno(dout) ); 

196 data = -1; 

197 reply(226, "Transfer complete."); 

198 return; 

199 } 

200 else if (send_data(name, fin, dout) ) 

201 { 

202 xclose( xf ileno(dout )) , data = -1; 

203 } 

204 else 

205 { 

206 reply(226, "Transfer complete."); 

207 xclose( xf ileno(dout ) ) , data = -1; 

208 } 

209 done: 

210 xclose( xfileno(fin) ); 

211 } 
212 

213 store(name, append) 

214 char -name, "'append; 

215 { 

216 XFILE *fout, *din; 

217 int outod; 

218 int omode; 

219 int (*closefunc)(), dochown = 1; 

220 struct ftp_attr attributes; 

221 

222 omode = XFWRITE | XFCREAT | (( *append == V )? XFAPPEND : XFTRUNC ); 

223 attributes. rep_type = type; 

224 attributes. format = form; 
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225 attributes. structure = stru; 

226 attributes.trans_mode = mode; 

227 attributes. byte_sz = bytesize; 

228 outod = xftpopen( name, omode, FILE_NAME, &attributes ); 

229 if( outod < ) 

230 { 

231 reply(550, "%s: %s.", name, xrerror( outod ) ); 

232 return; 

233 } 

234 fout = xodopen( outod, "w" ), closefunc = xclose; 

235 if (fout == XNULL) { 

236 reply(550, "xodopen failed."); 

237 return; 

238 } 

239 din = dataconn(name, (offt)-l, "r"); 

240 if (din == XNULL) 

241 goto done; 

242 if (receive_data(name, din, fout) ) 

243 { 

244 } 

245 else 

246 { 

247 reply(226, "Transfer complete."); 

248 } 

249 xclose( xf ileno(din) ) , data = -1; 

250 done: 

251 VOID xchown(name, FILE_NAME ); 

252 xclose( xf ileno(fout ) ); 

253 } 
254 
255 

256 getdatasock(mode) 

257 char "mode; 

258 { 

259 int s; 

260 int retry; 
261 

262 if (data >= 0) 

263 return (data); 

264 data_source.sin_family = AFINET; 

265 for (retry = 0; retry < swaitmax; xsleep (swaitint), retry += swaitint) 

266 { 

267 s = xsocket(SOCK_STREAM, 0, &data_source, 

268 SO_KEEPALIVE|SO_REUSEADDR); 

269 /* GAP 7/25/85: REUSEADDR fixes simultaneous xfer bug */ 

270 if (s >= | | ( s != XEADDRINUSE && s != XENOBUFS)) 

271 break; 

272 } 

273 if (s < 0) 

274 xperror( s, "getdatasock" ); 

275 return ( s ); 

276 } 
277 
278 

279 XFILE * 

280 dataconn(name, size, mode) 
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281 char *name; 

282 off_t size; /* no longer used */ 

283 char *mode; 

284 { 

285 char sizebuf[32]; 

286 XFILE *file; 

287 int retry = 0; 

288 int s; 

289 int rval; 
290 

291 if (data >= 0) { 

292 reply(125, "Using existing data connection for %s.", name); 

293 usedefault = 1; 

294 return (xodopen(data, mode)); 

295 } 

296 if (usedefault) 

297 xbcopy( &his_addr, &data_dest, sizeof (struct sockaddr)); 

298 usedefault = 1; 

299 s = getdatasock(mode); 

300 if ( s < 0) { 

301 reply(425, "Can't create data socket (%s,%d): %s.", 

302 ntoa(data_source.sin_addr.s_addr), 

303 xntohs(data_source.sin_port), 

304 xrerror( s )); 

305 return (XNULL); 

306 } 

307 reply(150, "Opening data connection for %s (%s,%d).", 

308 name, ntoa(data_dest .sin_addr ,s_addr) , 

309 xntohs(data_dest .sin_port)) ; 

310 data = s; 

311 while ((rval = xconnect(data, &data_dest)) < 0) { 

312 if (rval == XEADDRINUSE && retry < swaitmax) { 

313 xsleep(swaitint); 

314 retry += swaitint; 

315 continue; 

316 } 

317 reply(425, "Can't build data connection: %s.", 

318 xrerror( rval ) ); 

319 VOID xclose(data); 

320 data = -1; 

321 return (XNULL); 

322 } 

323 file = xodopen( data, mode ); 

324 return (file); 

325 } 
326 

327 /* 

328 * Tranfer the contents of "instr" to 

329 " "outstr" peer using the appropriate 

330 " encapulation of the date subject 

331 -to Mode, Structure, and Type. 

332 * 

333 * NB: Form isn't handled. 

334 */ 

335 send_data(name, instr, outstr) 

336 char *name ; 
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337 XFILE *instr, *outstr; 

338 { 

339 long rval; 
340 

341 rval = xpasstnet( instr, outstr ); 

342 if( rval == XEOPNOTSUPP ) 

343 { 

344 reply ( 504, "Un implemented TYPE %d in send_data", type); 

345 return( 1 ); 

346 } 

347 else if ( rval < ) 

348 { 

349 reply(550, "%s: %s.", name, xrerror( rval ) ); 

350 return( 1 ); 

351 } 

352 return (0); 

353 } 
354 

355 /* 

356 * Transfer data from peer to 

357 * "outstr" using the appropriate 

358 * encapulation of the data subject 

359 * to Mode, Structure, and Type. 

360 * 

361 * N.B.: Form isn't handled. 

362 */ 

363 receive_data(name, instr, outstr) 

364 char *name; 

365 XFILE -instr, -outstr; 

366 { 

367 long rval; 
368 

369 rval = xpassfnet( instr, outstr ); 

370 if( rval == XEOPNOTSUPP ) 

371 { 

372 reply(504, "TYPE E not implemented."); 

373 return (1); 

374 } 

375 else if ( rval < ) 

376 { 

377 reply(550, "%s: %s.", name, xrerror( rval ) ); 

378 return (1); 

379 } 

380 return( ); 

381 } 
382 

383 fatal(s) 

384 char *s; 

385 { 

386 reply(451, "Error in server: %s\n", s); 

387 reply(221, "Closing connection due to server error."); 

388 xexit(l); 

389 } 
390 

391 #ifdef zilog 

392 reply(n, s, al, a2, a3, a4, a5, a6) 
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393 int n; 

394 char *s; 

395 int al, a2, a3, a4, a5, a6; 

396 { 

397 int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aa6=a6; 

398 #else 

399 reply(n, s, args) 

400 int n; 

401 char *s; 

402 { 

403 #endi£ 

404 xoprintf(xstdout,"%d ", n); 

405 _mydoprnt(s, &args, xstdout); 

406 xoprintf (xstdout, "\r\n u ); 

407 xfflush(xstdout); 

408 if (debug) { 

409 xoprintf (xstderr, "< %d ", n); 

410 _mydoprnt(s, &args, xstderr); 

411 xoprintf (xstderr, "\n"); 

412 xfflush(xstderr); 

413 } 

414 } 
415 

416 #ifdef zilog 

417 lreply(n, s, al, a2, a3, a4, a5, a6) 

418 int n; 

419 char *s; 

420 int al, a2, a3, a4, a5, a6; 

421 { 

422 int args=al, aa2=a2, aa3=a3, aa4=a4, aa5=a5, aa6=a6; 

423 #else 

424 lreply(n, s, args) 

425 int n; 

426 char *s; 

427 { 

428 #endif 

429 xoprintf (xstdout, "%d- M , n); 

430 _mydoprnt(s, &args, xstdout); 

431 xoprintf (xstdout, "\r\n"); 

432 xfflush(xstdout); 

433 if (debug) { 

434 xoprintf (xstderr, "< %d~", n); 

435 _mydoprnt(s, &args, xstderr); 

436 xoprintf (xstderr, "\n" ) ; 

437 } 

438 } 
439 

440 replystr(s) 

441 char *s; 

442 { 

443 xoprintf (xstdout ,"%s\r\n", s); 

444 xfflush(xstdout); 

445 if (debug) 

446 xoprintf (xstderr, "< %s\n M , s); 

447 } 
448 
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449 ack(s) 

450 char *s; 

451 { 

452 reply(200, "%s command okay.", s); 

453 } 
454 

455 nack(s) 

456 char *s; 

457 { 

458 reply(502, "%s command not implemented.", s); 

459 } 
460 

461 yyerror( message ) 
462 

463 char "message; 

464 { 

465 reply(500, "Command not understood: %s.", message ); 

466 xlongjmp( errcatch, 1 ); 

467 } 
468 

469 delete(name) 

470 char "name; 

471 { 

472 int rval; 
473 

474 if ((rval = xunlink(name, FILENAME )) < 0) { 

475 reply(550, "%s: %s.", name, xrerror( rval )); 

476 return; 

477 } 

478 ack("DELE"); 

479 } 
480 

481 cwd(path, special) 

482 char *path; 

483 int special; 

484 { 

485 int rval; 
486 

487 if (( rval = xchdir(path, special ) ) < 0) { 

488 reply(550, "%s: %s.", path, xrerror( rval ) ); 

489 return; 

490 } 

491 ackO'CWD"); 

492 } 
493 

494 makedir(name) 

495 char *name; 

496 { 

497 int rval; 
498 

499 if ((rval = xmkdir(name, FILENAME)) < 0) { 

500 reply(550, "%s: %s.", name, xrerror( rval ) ); 

501 return; 

502 } 

503 VOID xchown(name, FILENAME ); 

504 ackC'MKDIR"); 
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505 } 
506 

507 removedir(name) 

508 char *name; 

509 { 

510 int rval; 
511 

512 if (( rval = xrmdir(name, FILE NAME)) < 0) { 

513 reply(550, "%s: %s.", name, xrerror( rval ) ); 

514 return; 

515 } 

516 ack( M RMDIR"); 

517 } 
518 

519 pwd() 

520 { 

521 char path[MAXPATHLEN + l]; 

522 int success; 
523 

524 success = xpwd( path, MAXPATHLEN + 1, PWD ); 

525 if ( success < 0) { 

526 reply(451, "working directory not available."); 

527 return; 

528 } 

529 reply(251, "\"%s\" is current directory.", path); 

530 } 
531 

532 char * 

533 renamefrom(name) 

534 char "'name; 

535 { 

536 int rval; 
537 

538 if ( (rval = xaccess( name, FILENAME, ) ) < ) { 

539 reply(550, "%s: %s.", name, xrerror( rval ) ); 

540 return ((char *)0); 

541 } 

542 reply(350, "File exists, ready for destination name"); 

543 return (name); 

544 } 
545 

546 renamecmd(f rom, to) 

547 char "from, "to; 

548 { 

549 int rval; 
550 

551 if ((rval = xrename(f rom, FILE_NAME, to, FILE_NAME) ) < 0) { 

552 reply(550, "rename: %s.", xrerror( rval ) ); 

553 return; 

554 } 

555 ack("RNTO"); 

556 } 
557 

558 /* 

559 * Test pathname for guest-user safety. 

560 */ 
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561 inappropriate_request(name) 

562 char "name; 

563 { 

564 int depth = 0, length, size; 

565 register char *p, *s; 
566 

567 length = ( name )? xstrlen( name ) : ; 

568 /* 

569 This functionality probably belongs in xftpopen, 

570 but for now. 

571 */ 

572 return( ); 

573 } 
574 

575 /* 

576 " Convert network-format internet address 

577 * to base 256 d.d.d.d representation. 

578 */ 

579 char * 

580 ntoa(in) 

581 struct in_addr in; 

582 { 

583 static char b[l8]; 

584 register char *p; 
585 

586 p = (char »)&in; 

587 #define UC(b) (((int )b)&0xf f ) 

588 xsprintf(b, "%d.%d.%d.%d", UC(p[0]), UC(p[l]), UC(p[2]), UC(p[3J)); 

589 return (b); 

590 } 
591 

592 dolog(sin) 

593 struct sckadr_in *sin; 

594 { 

595 char saddr[l6], -ntoaO; 

596 struct hostent *hp = ghbaddr(&sin->sin_addr , 

597 sizeof (struct inaddr), AF_INET); 

598 char *remotehost ; 

599 long t; 

600 long xtimeO; 
601 

602 if (hp) 

603 remotehost = hp->h_name; 

604 else 

605 remotehost = ntoa (sin->sin_addr .s_addr ) ; 

606 t = xtimeO; 

607 xoprintf (xstderr ,"FTPD: connection from %s at %ld", 

608 remotehost, t ); 

609 xfflush(xstderr); 

610 } 
611 
612 

613 /* 

614 mp - Even if _doprnt is more wonderful than _mydoprnt for systems which 

615 have doprnt , using _doprnt is an incredible maintainance headache. 

616 In any case, we should support the same functionality on all 
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617 systems. 

618 Hence, may doprnt rest in peace. 

619 */ 

620 mydoprnt (format, argp, FILEp) 

621 char ^format; 

622 int "'argp; 

623 XFILE *FILEp; 

624 { 

625 xoprintf (FILEp, format, -argp, *(argp+l), *(argp+2), *(argp+3), 

626 *(argp+4), *(argp+5)); 

627 } 
628 
629 
630 

631 struct servent * gsbname (service, proto) 

632 char ^service, "proto; 

633 { 

634 static struct servent servstat; 
635 

636 servstat . s_name = service; 

637 servstat .saliases = 0; 

638 if (xstrcmp (service, "ftp") == 0) 

639 servstat. s_port = (IPRTJTP); 

640 else 

641 if (xstrcmp (service, "telnet") == 0) 

642 servstat. sport = (IPPORT_TELNET) ; 

643 else 

644 return (0); 

645 servstat. s_proto = proto; 

646 return (&servstat); 

647 } 
648 

649 extern char "xraddrO; 

650 extern struct hostent "ghbname (); 
651 

652 struct hostent - 

653 ghbaddr(addr) 

654 struct inaddr *addr; 

655 { 

656 char "name; 
657 

658 if ((name = xraddr (addr -> saddr)) == 0) 

659 return (0); 

660 return ( ghbname ( name) ) ; 

661 } 
662 

663 extern long xrhost (); 
664 

665 struct hostent * 

666 ghbname(host) 

667 char *host; 

668 { 

669 static struct hostent def; 

670 static struct in_addr defaddr; 

671 static char namebuf [ 128] ; 
672 



Apr 30 23:04 1986 ftpd.c Page 13 



673 defaddr.s_addr = xrhost(&host ) ; 

674 if (defaddr.saddr == -1) 

675 return (0); 

676 xstrcpy(namebuf , host); 

677 def.h_name = namebuf; 

678 def.h_addr = (char *)&defaddr; 

679 def.h_length = sizeof (struct in_addr); 

680 def .haddrtype = AF_INET; 

681 def „h_aliases = 0; 

682 return (&def); 

683 } 
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/* 



#include <ftp.h> 
#include <socket.h> 



extern 
extern 
extern 



char version[ 3 ; 
int xsmainO; 
int lostconn(); 



* FTP server. 

*/ 

/* 
*/ 

#include <xgenlib.h> 

#include <xspecial.h> 

9 #include <netdb.h> 

10 . #include <in.h> 

11 #include <xpwd.h> 

12 #include <fcs.h> 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



extern struct sckadr_in ctrl_addr; 

struct _xiobuf _xiob[_XNFILE] = {0}; 

struct passwd xpassword = {0}; 

struct passwd *pw = & xpassword; 

struct _rcb _rcb[_XNFILE] = {0}; 

typedef int jmp_buf; 

extern int errcatch; 

jmp_buf *envptr = {0}; 

int xmodnameO; 

int hash = 0; 

int errno =0; 

int figit = 0; 

int _brk =0; 

char luntbl[32] = {0}; 

extern char *inprm[ ] ; 

char "xghome = (char * )0; 

extern struct hostent *hp ; 



/* RSX - CONTROL BLOCK */ 



/* 
/* 



USED BY C_RTS ALLOC & FREE */ 
used to maintain LUN */ 



extern int 
extern int 
extern int 
extern int 
extern int 
extern struct 



logged_in 
debug ; 
timeout ; 
logging ; 
guest ; 
servent * 



sp 



main(argc, argv) 
int argc; 
char *argv[ ] ; 



{ 



int ctrl, s, 
char *cp; 
int rval ; 
int rval2; 
int bu£[ 16] ; 



options = 0; 



/* 16 word bufferd used for task 
parameters */ 
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57 

58 int maxlun = 0; 

59 

60 emt(GTSK,buf); 

61 _brk = buf[l3]; 

62 maxlun = buf[8]; 

63 ppasc(pw->cur_uic, buf[7]); 

64 ppasc(pw->login_uic, buf[l5]); 

65 emt(GLUN,l,buf ); /* get lun information */ 

66 xstrncpy(pw->log_dev,buf ,2); /* get phy. device name */ 

67 pw->log_dev[2] = (-((char *)buf + 2 )) + 060; /* get unit no. */ 

68 pw->log_dev[3] = f \0'; /* make it string «/ 

69 xstrcpy(pw->cur_dev,pw->log_dev) ; 

70 while( maxlun ) { 

71 i£( emt(GLUN, maxlun, buf ) > ) 

72 assign(maxlun) ; 

73 — maxlun; 

74 } 

75 for( rval = 0; rval < _XNFILE ; ++ rval ) 

76 _rcb[ rval]. flags = RFREE; 

77 sp = gsbname("ftp","tcp"); 

78 errcatch = (int ) & envptr; 

79 if (sp == 0) { 

80 xoprintf(xstderr, "ftpd: ftp/tcp: unknown serviceXn ); 

81 xexit(l); 

82 } 

83 ctrl_addr.sin_port = xhtons(sp->s_port ) ; 

84 ctrl_addr.sin_family = AF_INET; 

85 options = ( SO_ACCEPTCONN | SOJCEEPALIVE ); 

86 debug = 0; 

87 argc — , argv++; 

88 while (argc > && *argv[0] == '-') { 

89 for (cp = &argv[0][l]; *cp; cp++) switch (*cp) { 
90 

91 case ' v 1 : 

92 debug = 1; 

93 break; 
94 

95 case 'd' : 

96 debug = 1; 

97 options |= SODEBUG; 

98 break; 
99 

100 case '1': 

101 logging = 1; 

102 break; 
103 

104 case 't': 

105 timeout = xatoi(++cp); 

106 goto nextopt; 

107 break; 
108 

109 default: 

HO xoprintfOxstderr, "Unknown flag -%c ignored. \n" , *cp); 

111 break; 

112 } 
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113 nextopt: 

114 argc — , argv++; 

115 } 

116 rval = xdopen("TI:",XFREAD|XFWRITE|XFASCII, FILE_NAME); 

117 xdup2(rval,l); 

118 xdup2(l,2); 

119 xodopen(2,"w fl ); 
120 

121 getclient( SOCK_STREAM, (struct sockproto *)0, 

122 &ctrl_addr, options, xsmain); 

123 } 
124 

125 xsmain( s, from ) 
126 

127 /* 

128 RSX specific ftp demon start up actions, calls generic code. 

129 Operating systems which require the user's id to be established 

130 before the process is started may provide two versions of this 

131 module, one where logged_in is set to zero and one where it 

132 is set to 1. 

133 Otherwise, this is where to determine if the user has been authenticated 

134 or not. 

135 */ 

136 int s; 

137 struct sckadr_in *from; 

138 { 

139 loggedin = 0; 

140 /* 

141 Until xprintf is available... 

142 s = (int )_xiob[ s] ._sys_id; 

143 */ 

144 ftpdoit( s, from ); 

145 } 
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1 char version[] = "Version 4.83 Wed Mar 27 11:34:00 PST 1985"; 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



/* 

*/ 
/* 



*/ 



convert floating point value to string 
return length of string converted 



remove the definition of EXTENDED if you want 
the exponent of E format to be 2 character places 
instead of 3 (e.g.) 1.0E45 instead of 1.0E045 



#define EXTENDED 

dtos(d,sbuff ,prec,cc) 
double d; 

unsigned char *sbuff; 
short prec; 
unsigned char cc; 

{ 

short base; 
short efmt; 
short len; 
unsigned char ,v cp; 

#ifdef EXTENDED 
#define PAD 3 
#else 

#define PAD 2 
#endif 



/* floating point to convert */ 
/* buffer to store result */ 
/* no. fractional places */ 
/* conversion code (e,f, or g) */ 

/* the number base */ 

/* true if E format required */ 

/* length of string */ 



/* number of digits in exponent */ 



base = _dscale(&d,0); 

efmt = ((cc== f e')| | ((cc=='g' )&&(base>=5 | |base<=-5))| | (base>=20)); 
base += _dscale(&d,efmt?prec+2:prec+base+2); 
if (base>=20) efmt=l; 

cp = sbuff + _dtos(d,sbuff ,efmt?l:base+l,prec); 
if(efmt){ 
*cp++ = f E ' ; 



if(base<0){*cp++ = '-'; base= -base;} 
else *cp++ = '+' ; 

if((len = ltos((long)base,cp,10))<PAD){ 
movmem(cp,cp+PAD-len,len+l); 
setmemCcpjPAD-len/O' ); 
} 
} 
else if (cc= =l g' ){ 

while(*— cp == '0')*cp = 0; 
if(*cp == ' .') *cp = 0; 

} 

return xstrlen(sbuf f ) ; 



/* left pad */ 



/* remove trailing zeroes */ 
/* remove ' . ' */ 



/* 
*/ 



increased accuracy power of ten table 



static unsigned int pgiten[]={ 
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57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 



0X0000 , 0X0000 , 0X0000 , 0X4024 , 
0X0000 , 0X0000 , 0X0000 , 0X4059 , 
0X0000 , 0X0000 , 0X8800 , 0X40C3 , 
0X0000, 0X0000, 0XD784, 0X4197, 
0X8000, 0X37E0,0XC379, 0X4341, 
0X6E1 7, 0XB505,0XB8B5, 0X4693, 
0XF9F6 , 0XE93F , 0X4F03 , 0X4D38 , 
0X1D33 , 0XF930 , 0X7 748 , 0X5A82 , 
0XBF3F,0X7F73,0X4FDD, 0X7515 



/* 
/* 
/* 
/* 
/* 



/* 
/* 



lei */ 
le2 */ 
le4 */ 
le8 */ 
lel6 */ 
/* le32 */ 
/* le64 */ 
lel28 */ 
le256 */ 



/* 

/* 
/* 



*/ 
*/ 
*/ 



le-1 

le-2 

le-4 
/* le-8 */ 
/* le-16 */ 
/* le-32 */ 
/* le-64 */ 
/* le-128 */ 
/* le-256 */ 



/* value to scale */ 



1; 

static double *pgten=pgiten; 

static unsigned int pliten[]={ 

0X999A, 0X9999 , 0X9999 , 0X3FB9 , 
0X147B , 0X47AE , 0X7 AE1 , 0X3F84 , 
0X432D,0XEB1C,0X36E2,0X3F1A, 
0X8C3A , 0XE230 , 0X798E , 0X3E45 , 
0X89BC , 0X97D8 , 0XD2B2 , 0X3C9C , 
0XA732 , 0XD5A8 , 0XF623 , 0X3949 , 
0XA73C,0X44F4,0X0FFD,0X32A5, 
0X979A,0XCF8C,0XBA08,0X255B, 
0X6F40 , 0X64AC , 0X0628 , 0X0AC8 

1; 

static double *plten=pliten; 

static double ZERO=0.0,ONE=1.0,TEN=10.0; 

static _dscale(valp, round) 
double *valp; 
int round; 

{ 

int pow=0,sign, j,*ps,*pd; 
double val , roundval ; 

if((val= *valp)<ZER0){ 
val= -val; 
sign=l; 

} 

else sign=0; 

if(val==ZERO | | round<0)return 0; 
if (round ){ 

if(round>16) round = 16; /* the real limit should be 15 ? 

for( roundval=5.0; — round;) roundval *= 1.0e-l; 

val += roundval; 

} 

i£(val>=TEN){ 
for(j=9;j— ;){ 
pow«=l ; 

if(val>=pgten[ j]){ 
val *= plten[j]; 
++pow; 
} 
} 
} else if(val<ONE){ 
for(j=9;j— ;){ 



*/ 
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113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 



} 



pow«=l ; 
if(val<plten[j]){ 

val *= pgtenCj]; 

— pow; 
} 



i£(val<0NE){ 
val*=TEN; 
— pow; 

1 



J 

roundval=0 ; 

pd= &roundval; 

ps= &val; 

pd[3]=(ps[3]&0x7££0)-(52«4); 

val+=roundval ; 

if(val>=TEN || val<ONE)pow+=_dscale(&val,0) ; 

*valp=sign?-val : val ; 



} 



*valp=sign 
return pow; 



static _dt os ( val, string, iplace,f place) 

double val; /* the value to convert */ 

unsigned char "'''string; 

int iplace; /* number of integer places */ 

int f place; /* the number of fractional places */ 

{ 

unsigned char *cp; 
int j; 

cp=string; 
if(val<ZERO){ 

val= -val; 

*cp++ = ' - ' ; 
} 
if (iplace<l){ 

*cp++ = '0 f ; 

*cp++ =' .' ; 

fplace+=i place; 

if ( f place<0 ) { iplace-=f place ; f place=0 ; } 

while(iplace++<0)*cp++ ='0'; 
} else { 

do { 
j=val; 

*cp++ =j+'0 f ; 
val=(val-j)*TEN; 

} while( — iplace); 

if (f place )*cp++ =' .' ; 



} 

whi l,e( f place — ) { 

j=val; 

*cp++ = j+'O* ; 

val=(val-j)*TEN; 

1 

*cp=0; 

return cp-string; 



/* get the integer part */ 
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169 } 
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1 /* 

2 * @(#)fmtout.c 1.7 5/31/85 

3 * 

4 * GENERIC LIBRARY 

5 * 

6 * filename: FMTOUT.C 

7 */ 
8 

9 /* format data under control of a format string 
10 */ 
11 

12 /* to remove the floating point code, comment out 

13 the definition of FLOATS 

14 */ 
15 

16 /* 

17 #define FLOATS 

18 */ 
19 

20 #include "xgenlib.h" 

21 

22 static int *Pp = (int *)0; "^" 

23 

24 #ifndef zilog 

25 

26 xpinit(svec) 

27 int *svec; 

28 { 

29 Pp = svec; 

30 } 
31 

32 xpintO 

33 { 

34 return *Pp++; 

35 } 
36 

37 long 

38 xplongO 

39 { 

40 #ifdef rsx 

41 register long *p; 

42 p = (long *)Pp; 

43 Pp += sizeof ( long) / sizeof (Pp); 

44 return ( (*p)); 

45 #else 

46 return *((long *)Pp)++; <#*"" 

47 #endif 

48 } 
49 

50 typedef char *p2c; 

51 typedef p2c *p2p2c; 
52 

53 char * 

54 xpptrO 

55 { 

56 /* return *((p2p2c)Pp)++; */ 
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57 register p2p2c cpp = (p2p2c)Pp; 

58 register p2c cp = *cpp; 
59 

60 cpp++; 

61 Pp = (int *)cpp; 

62 return (cp); 

63 } 
64 

65 double 

66 xpdoubleO 

67 { 

68 #ifdef rsx 

69 register double *p; 

70 p = (double *)Pp++; 

71 #else 

72 (double *)Pp++; 

73 #endif 

74 return (double )0; -^ 

75 } 
76 

77 #else 
78 

79 static Rent; 

80 static int *Rvec; 

81 static int *Svec; 
82 

83 xpinit(rvec, rent, svec) 

84 int *rvec; 

85 int *svec; 

86 { 

87 Rent = rent; 

88 Pp = Rvec = rvec; 

89 Svec = svec; 

90 } 
91 

92 xpintO 

93 { 

94 int itmp; 
95 

96 if (Rent == 6) 

97 Pp = Svec; 

98 itmp = *Pp; 

99 Rcnt++; 

100 Pp++; 

101 return itmp; 

102 } 
103 

104 long 

105 xpswap(lv) 

106 long lv; 

107 { 

108 return lv«16 | (lv»16&0xFFFF) ; 

109 } 
110 

111 long 

112 xplongO 
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113 { 

114 long ltmp; 
115 

116 switch (Rent) { 

117 case 0: 

118 case 2: 

119 ltmp = xpswap(*(long *)Pp); 

120 Pp += 2; 

121 Rent += 2; 

122 break; 

123 case 1: 

124 Pp++; 

125 ltmp = xpswap(*(long *)Pp); 

126 Pp += 2; 

127 Rent += 3; 

128 break; 

129 case 3: 

130 Pp++; 

131 ltmp = xpswapO v (long Vs ')Pp); 

132 Pp = Svec; 

133 Rent += 3; 

134 break; 

135 case 4: 

136 ltmp = xp swap (*( long *)Pp); 

137 Pp = Svec; 

138 Rent += 2; 

139 break; 

140 case 5: 

141 Pp = Svec; 

142 ltmp = *(long *)Pp; 

143 Pp += 2; 

144 Rent += 3; 

145 break; 

146 default: 

147 if (Rent == 6) 

148 Pp = Svec; 

149 ltmp = *(long *)Pp; 

150 Pp += 2; 

151 Rent += 2; 

152 break; 

153 } 

154 return ltmp; 

155 } 
156 

157 char * 

158 xpptrO 

159 { 

160 char *cptmp; 
161 

162 if (Rent ==6) 

163 Pp = Svec; 

164 cptmp = (char *)*Pp; 

165 Rcnt++; 

166 Pp++; 

167 return cptmp; 

168 } 
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169 

170 double 

171 xpdoubleO 

172 { 

173 return (double)O; 

174 } 
175 

176 #endif 
177 

178 #ifndef zilog 

179 _£mtout(func, funarg, string, ip) 

180 #else 

181 _fmtout(func, funarg, string, ip, regp, regent) 

182 int *regp; 

183 #endif 

184 int (*func)(); 

185 char *funarg; 

186 char ^string; 

187 int *ip; 

188 { 

189 char tbuff[l28], *cp, cb; 

190 int base; 

191 int is_number; 

192 unsigned leftadj, padchar, width, precflg, precisn, longflg, length; 

193 union { 

194 long tlong; 

195 long tulong; 

196 } 

197 lw; 

198 #ifde£ FLOATS 

199 double *dp; 

200 #endif 
201 

202 #ifndef zilog 

203 xpinit(ip); 

204 #else 

205 xpinit(regp, regent, ip); 

206 #endif 
207 

208 while(*string){ 

209 if( * str i ng !='%•){ 

210 £or(cp=string;*cp && *cp! =, %';) 

211 (*func)( (*cp++) & Oxff, funarg); 

212 string=cp; 

213 } 

214 else { 

215 is_number = 1; 

216 if (leftadj=(*++string == '-')) 

217 ++string; 

218 padchar= ^string & Oxff; 

219 if(padchar== l t ) 

220 ++string; 

221 else padchar=' '; 

222 if (^string == '*») { 

223 /* width is an argument */ 

224 width = xpintO; 
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225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 #ifde£ FLOATS 

247 

248 

249 

250 

251 

252 

253 

254 #endif 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 nosign: 

275 

276 

277 

278 

279 

280 



} 
else 



++stnng; 



for (width=0;isdigit(*string); ) 

width=width*10+(*string++- l 0'); 
if (precflg=(*string== f .')) { 
++string; 
if( *string == '*' ){ 

/* precision is an argument */ 

precisn = xpintO; 

++string; 

} 
else 

for (precisn=0;isdigit(*string);) 

precisn=precisn*10+(" >v string++- , 0' 

} 

else precisn=0; 
if (longflg=(*string =='1')) 
++string; 

switch (^string) { 



case ' f: 



case 'g* : 



if ( !precflg)precisn=6; 

dp= (double *)xpdouble( ) ; 

length=dtos(*dp++, cp=tbuff, precisn, ^'string & ( 

break; 



case ' 


B' 


• 


case ' 


b' 


• 
• 

base=2; 
goto nosign; 


case 


0' 


• 


case 


o' 


base=8; 
goto nosign; 


case 


U 


• 
• 


case 


u 


• 
• 

base=10; 
goto nosign; 


case 


X 


• 


case 


'x 


• 
• 

base=16; 
goto nosign; 


case 


•d 


• 
• 


case 


'd 


• 

base= -10; 



if (llongflg) 

longflg=(*string>='A , &&*string<= f Z l ); 
if(longflg){ 

lw.tlong= xplongO; 

} 

else if (base<0)lw.tlong=(long)xpint(); 
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281 else lw.tulong=(unsigned)(xpint()); 

282 ltosdw.tlong, tbuff, base); 

283 i£(prec£lg){ 

284 cp = tbuff; 

285 if (lw.tlong <0) ++cp; 

286 length= xstrlen(cp); 

287 if (precisn && length < precisn+1 ) { 

288 movmem(cp, cp+precisn+1-length, 

289 setmem(cp, precisn+1-length, ' f 

290 length = precisn +1; 

291 } 

292 movmem( cp+length-precisn, cp+length-pre 

293 cp[length-precisn] = ! .'; 

294 } 

295 length=xstrlen(cp=tbuff ); 

296 break; 

297 case 's': 

298 cp = xpptr(); 

299 length = xstrlen(cp); 

300 if(precflg && precisn<length)length=precisn; 

301 /* leave minus signs alone */ 

302 is_number=0; 

303 break; 

304 case ' c': 

305 cb = xpintO & 0x7F; 

306 cp = &cb; 

307 length=l; 

308 i s_number=0 ; 

309 break; 

310 default: 

311 cp=string; 

312 length=l; 

313 is_number=0; 

314 break; 

315 } 

316 if Oleftadj && width>length) { 

317 if (is_number && *cp == '-' && padchar == '0') { 

318 (*func)((*cp++) & Oxff, funarg); 

319 — length; 

320 —width; 

321 } 

322 while (width— >length) 

323 (*func)( padchar, funarg); 

324 } 

325 if (width>length) 

326 width-=length; 

327 else 

328 width=0; 

329 while (length—) 

330 (*func)((*cp++) & Oxff, funarg); 

331 if (leftadj && width) 

332 while(width— ) 

333 (*func) (padchar, funarg); 

334 ++string; 

335 } 

336 } 
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337 } 
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1 

2 


/* 




3 


* @(#)ltos.c 1.6 6/4/85 




4 


*■ GENERIC LIBRARY 




5 


* 




6 


* filename: LTOS.C 




7 


*/ 




8 






9 


^include "xgenlib.h" 




10 






11 


/* 




12 


* movmem -> move memory 




13 


*/ 




14 






15 


int movmem ( from, to, len) 




16 


char *from, *to; 




17 


int len; /* no of bytes to copy */ 




18 


{ 




19 


while ( len — ) 




20 


*to++ = *from++; 




21 


} 




22 






23 


/* 




24 


* setmem: - set memory to a desired value 




25 


*/ 




26 






27 


int setmem( s, len, c) 




28 


char *s; /* start address of the memory */ 




29 


int len; /* no of char to be set */ 




30 


char c; /* character to be set */ 




31 


C 




32 


while ( len — ) 




33 


* s ++ = c ; 




34 


} 




35 






36 






37 


/* long to string 




38 


*/ 




39 






40 


ltos(val,cp,base) 




41 


long val ; /* the number to convert */ 




42 


char *cp; /* the address of the string */ 




43 


int base; /* the conversion base */ 




44 


{ 




45 


char tempc[34] ,*tcp; 




46 


int n=0; /* number of characters in result */ 




47 


long uval; /* unsigned value (not possible on all compilers) 


*/ 


48 


static char dig[ ]={"0123456789ABCDEF ,f } ; 




49 






50 


*(tcp=tempc+33)=0; 




51 


if(base<0){ /* needs signed conversion */ 




52 


if(val<0)n=l; 




53 


else val= -val; 




54 


do { 




55 


register int num = -(val%base); 




56 


* — tcp=dig[ num ]; 
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57 } while((val/= -base)); 

58 } else { 

59 uval=val; 

60 do { 

61 register long nura = (uval%base); 

62 if( num < ) nura -= base; 

63 * — tcp=dig[num] ; 

64 } while(uval/= base); 

65 } 

66 if(n)* — tcp='- 1 ; 

67 n=((int)tempc + 33) - (int)tcp; 

68 movmem(tcp,cp,n+l) ; 

69 return n; 

70 } 
71 

72 
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1 /* 

2 * format data to a memory string 

3 */ 
4 

5 /* 

6 * this function behaves much like putc with only difference 

7 * is that it writes to an user buffer instead of a file. 

8 */ 

9 static _store(x, to) 

10 unsigned char x; 

11 unsigned char **to; 

12 { 

13 **to = x; 

14 (*to)++; /* point to the next location of the buffer */ 

15 **to-0; /* terminate for safety */ 

16 } 
17 

18 xsprintf (string, control, args) 

19 unsigned char *string; 

20 unsigned char ^control; 

21 unsigned args; 

22 { 

23 return _fmtout (_store,&string, control ,&args) ; 

24 } 
25 



Mar 29 15:19 1985 stretc.c Page 1 



1 /* 

2 * GENERIC LIBRARY 

3 * 

4 * filename: STRETC.C 

5 */ 
6 

7 #include <xctype.h> 

8 

9 

10 /* 

11 * XSTRLEN: return the size of the string 

12 */ 
13 

14 int xstrlen( s ) 

15 unsigned char *s; 

16 { 

17 unsigned char *p = s; 
18 

19 while ( *p != , \0 f ) p++; 

20 return ( p-s ); 

21 } 
22 

23 /* 

24 * XSTRCPY: copy string 2 to string 1 

25 */ 
26 

27 xstrcpy( s, t) 

28 unsigned char *s, *t; 

29 { 

30 while ( *s++ = *t++ ); 

31 } 
32 

33 /* 

34 * XSTRNCPY: copy a string into a buffer n characters in length 

35 */ 
36 

37 unsigned char *xstrncpy( s, t, n) 

38 unsigned char *s, *t; 

39 int n; 

40 { 

41 unsigned char *cpj 
42 

43 for ( cp = s; n && ( *cp++ = *t++ ); — n ); 

44 while ( n — ) 

45 *cp++ = '\0' ; 

46 return ( s ); 

47 } 
48 

49 

50 /* 

51 * XSTRCMP: compare strings and return -ve, or +ve accordingly 

52 */ -s- 

53 S 

■"54 int xstrcmp( s, t) /* return <0 if s<t, if s==t, >0 if s>t */ 

55 unsigned char *s, *t; 

56 { 
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57 for ( ; *s == *t; s++, t++ ) 

58 if ( *s == '\0' ) 

59 return ( ); 

60 return ( *s - *t ); 

61 } 
62 

63 /* 

64 * XSTRICMP: case insensitive string comparision 

65 */ 
66 

67 #define conv(x) ( isupper(x) ? _tolower(x) : x ) 
68 

69 int xstr^gmp( s, t) 

70 unsigned char *s, *t; 

71 { 

72 for ( ; conv(*s) == conv(*t); s++, t++ ) 

73 if ( *s == '\0 f ) 

74 return ( ); 

75 return ( conv(*s) - conv(*t) ); 

76 } 
77 

78 

79 /* 

80 * XSTRNCMP: string compare up to n characters 

81 */ 
82 

83 int xstrncmp( s, t, n) 4f" 

84 unsigned char *s, *t; 

85 int n; 

86 { 

87 for ( ; n— && ( *s == *t ); t++ ) 

88 if ( !*s++ ) 

89 return ( ); 

90 if ( n < ) 

91 return ( ); ** 

92 if ( *s < *t ) 

93 return ( -1 ); 

94 return ( 1 ); 

95 } 
96 

97 /* 

98 * XSTRCAT: concatenates string 2 to the end of string 1 

99 */ 
100 

101 int xstrcatC s, t ) 

102 unsigned char *s, *t; 

103 { 

104 while ( *s++ != 'XO 1 ); 

105 for ( — s; (*s++ = *t++) != f \0'; ); 

106 } ? 
107 

108 

109 /* 

110 * XSTRNCAT: concatenate string 2 to string 1 , max n chars 

111 */ 
112 
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113 unsigned char *xstrncat( s, t, n) 

114 unsigned char *s, *t; 

115 int n; 

116 { 

117 unsigned char *cp; 
118 

119 for ( cp = s; *cp++; ); 

120 for ( — cp; n — && ( *cp++ = *t++ ); ) ; 

121 if ( n < ) 

122 *cp = '\0'; 

123 return s; 

124 } 
125 

126 

127 /* 

128 * XSTRCHR: return <l pointer to first occurance of character 

129 */ 
130 

131 unsigned char *xstrchr( s, c) 

132 unsigned char *s, c; 

133 { 

134 while ( *a ) 

135 if ( *s++ == c ) 

136 return — s; 

137 return ( ); 

138 } 
139 

140 /* 

141 * XSTRRCHR: return a pointer to the last occurance of char 

142 */ 
143 

144 unsigned char *xstrrchr( s, c) 

145 unsigned char *s, c; 

146 { 

147 unsigned char *cp; 
148 

149 for ( cp = s + xstrlen(s); — cp >= s; ) 

150 if ( *cp == c ) 

151 return cp; 

152 return 0; 

153 } 
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1 /* 

2 %W% %G% 
3 

4 Temporary entry points for some x routines. 

5 */ 

6 #include <xstdio.h> 

7 extern int errno; 
8 

9 
10 

11 char *xatoi(a) 

12 char *a ; 

13 { 
14 

15 return ( atoi( a ) ); 

16 } 
17 

18 char * 

19 xsprintf( ) 

20 { 

21 /* 

22 keep the linker happy at least. 

23 */ 
24 

25 } 
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1 /* 

2 %W% %G% 
3 

4 Generic close. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xerrno.h> 

9 #include <stdio.h> 
10 

11 extern int xnofuncO; 

12 

13 xclose( £d ) 

14 

15 int fd; 

16 { ~"~ 

17 int rval; 

18 register XFILE ^current; 
19 

20 i£( fd >= && fd < XNFILE ) 



21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 




{ 

current = &_xiob[fd]; 

if( !( current->_flag & _XUsed )) 

{ 

fprintf( stderr, "xclose: bad od\n" ); 

return ( XEBADF ); 

} 
/* 

file descriptor is OK, check for copies. 

*/ 

if( (current->_flag & _XIOWRT ) && (current->_buf siz > current->_cnt ) ) 

{ 

/* 

Flush write buffer (if appropriate). 

*/ 

fprintf( stderr, "xclose: flushing\n" ); 

xfflush( current ); 

} 
if( current->_base && 

(( current->_flag & XIOMYBUF == ))) 

{ 

/* 

free buffer allocated by system. 

*/ 

fprintf( stderr, "xclose: freeing\n" ); 

xfree( current->_base ); 

} 
if( current->_pred ) 

{ 

lie 

at least one copy exists 

*/ 

struct _xiobuf *next - current->_succ; 
struct _xiobuf ^previous = current->_pred; 
int primary = current->_f lag & _XPrimary; 




Mar 29 15:19 1985 xclose.c Page 2 

57 fprintf( stderr, "xclose: uncopying\n" ); 

58 if( next == previous ) 

59 { 

60 /* 

61 only one other copy 

62 */ 

63 previous->_pred = (struct _xiobuf *)0; 

64 previous->_succ = (struct _xiobuf *)0; 

65 } 

66 else 

67 { 

68 /* 

69 remove from linked list 

70 */ 

71 previous->_succ = next; 

72 next->_pred = previous; 

73 } 

74 i£( primary ) 

75 { 

76 /* 

77 Make new primary copy. 

78 */ 
79 

80 previous->_flag |= _XPrimary; 

81 } 

82 rval = 0; 

83 } 

84 else 

85 { 

86 /* 

87 Only copy, perform real close 

88 */ 

89 fprintf( stderr, "xclose: closinging\n" ); 

90 rval = (*(current->_close))( current->_sys_id ); 

91 } 

92 /* 

93 Cleanup _xiob structure. 

94 */ 

95 current->_flag = 0; 

96 current->_cnt = 0; 

97 current->_ptr = (char *)0; 

98 current->_base = (char *)0; 

99 current->_buf siz = 0; 

100 current->_succ = (struct _xiobuf *)0; 

101 current->_pred = (struct _xiobuf *)0; 

102 current->_read = xnofunc; 

103 current->_write = xnofunc; 

104 current->_ioctl = xnofunc; 

105 current->_close = xnofunc; 

106 return( rval ); 

107 } 

108 return( XEBADF ); 

109 } 
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1 /* 

2 %W% %G% 
3 

4 Copy an EXOS file object. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xerrno.h> 
9 

10 xdup2( orig_fd, new_fd ) 
11 

12 int orig_£d; 

13 int new_fd; 

14 { 
15 

16 if( orig £d > && orig fd < XNFILE && new fd > && new fd < XNFILE ) 

17 I ~ ' ~ 

18 register struct _xiobu£ *new = &_xiob[new_fd] ; 

19 register struct _xiobuf *orig = &_xiob[orig_fd] ; 
20 

21 i£( !(orig->_flag & _XUsed) ) 

22 return( XEBADF ); 

23 i£( orig_fd == new_fd ) 

24 return( ); 

25 xclose( new_fd ); — —> ?? 

26 /* 

27 seperate buffering for new object, 

28 everything else identical. 

29 */ 

30 new->_flag = orig->_flag & 

31 ~(_XPrimary | _XI0MYBUF | _XI0LBF | XIONBF); 

32 new->_cnt = 0; 

33 new->_ptr = (char *)0; 

34 new->_base = (char *)0; 

35 new->_file = new_fd; 

36 new->_sys_id = orig->_sys_id; 

37 new->_close = orig->_close; 

38 new->_read = orig->_read; 

39 new->_ioctl = orig->_ioctl; 

40 new->_write = orig->_write; 

41 /* 

42 insert into linked list of copies 

43 */ 

44 if ( !orig->_succ ) 

45 { 

46 new->_succ = orig; 

47 new->_pred = orig; 

48 orig->_succ - new; 

49 orig->_pred = new;! 

50 } 

51 else 

52 { 

53 new->_succ = orig->_succ; 

54 new->_pred = orig; 

55 orig->_succ = new; 

56 } 
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57 return( ); 

58 } 

59 return ( XEBADF ); 

60 } 
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1 /* 

2 %W% %G% 
3 

4 Unix specific close all EXOS file objects and exit program, 

5 */ 
6 

7 #include <xstdio.h> 
8 

9 xexit( status ) 
10 

11 int status; 

12 { 

13 int i; 
14 

15 for( i = 0; i < XNFILE ; ++i ) 

16 { 

17 xclose( i ); 

18 } 

19 exit( status ); 

20 } 
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1 /* 

2 %W% %G% 
3 

4 Operating system independent routine for flushing buffers / 

5 Associated with pointers to io objects. 

6 */ 

7 #include <xstdio.h> 

8 #include <xerrno.h> 
9 

10 xfflush( file ) 
11 

12 register XFILE *file; 

13 { " , "* = = 

14 int rval; 

15 int nmtowrite; 

16 char *pt; 
17 

18 if( !(£ile->_£lag & _XUsed ) ) 

19 return( XEBADF ); v 

20 if( !file->_base || ! (f ile->_f lag & _XIOWRT ) ) 

21 return( XEBADF ); ^ 

22 if( file->_flag & _XIOLBF ) 

23 { 

24 nmtowrite = (int)( file->_ptr - file->_base ); 

25 file-> cnt = 0; 

26 } 

27 else 

28 { 

29 nmtowrite = f ile->_buf siz - file->_cnt; 

30 file->_cnt = f ile->_buf siz; 

31 } 

32 file->_ptr = file->_base; 

33 rval = 0; 

34 pt = file->_base; 

35 while( nmtowrite > ) 

36 { 

37 rval = xwrite( xfileno( file ), pt, nmtowrite ); 

38 if( rval <= ) 

39 break; 

40 nmtowrite -= rval; 

41 pt += rval; 

42 } 

43 return( rval ); 

44 } 
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1 /* 

2 @(#)_xfilbuf.c 1.4 5/22/85 
3 

4 System independent routine for filling buffers associated with 

5 a pointer to an io object, (used to implement xgetc). 

6 */ 

7 #include "xgenlib.h" 
8 

9 _xfilbuf( file ) 
10 

11 register XFILE *file; 

12 { 

13 int rval; 

14 char ch; 
15 

16 if( !( file->_flag & _XUsed ) ) 

17 return( XEOF ); 

18 if( !( file->_flag & _XIOREAD ) ) 

19 return( XEOF ); 

20 if( file-> flag & XIOERR ) 

21 { ~ 

22 /* 

23 * Allow user to retry after an error. 

24 */ 

25 file-> flag &= ~ XIOERR; 

26 } 

27 if( file->_base ) 

28 { 

29 rval = xread( xf ileno(f ile) , file-> base, file-> bufsiz ); 

30 } ~ 

31 else 

32 { 

33 rval = xread( xf ileno(f ile) , &ch, 1 ); ■.. \ —" 

34 , } 

35 /if ( rval < ) 

36( { \ 

37 \ file->_flag |= _XIOERR; ; 

38 X. return( XEOE^); „.-"' 



39 --— „}__._. _ ...-■-— •— • " — 

40 else if ( rval == ) 

41 { 

42 file->_flag |= _XIOEOF; 

43 return( XEOF ); 

44 } * 

45 file->_cnt = rval - 1; 

46 if( file-> base ) 

47 { " 

48 file->_ptr = &file-> base[l]; 

49 return( (file-> basero]) & Oxff ); 

50 } 

51 else 

52 { 

53 return( ch & Oxff ); 

54 } 

55 } 
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1 /* 

2 @(#)_xflsbuf.c 1.6 5/22/85 
3 

4 System independent routine for filling io buffers. 

5 ( used to implement xputc ). 

6 */ 

7 #include "xgenlib.h" 
8 

9 _xflsbf( x, file ) 
10 

11 unsigned int x; 

12 register XFILE *file; 

13 { 

14 int rval; 

15 int nmtowrite; 

16 int storex; 

17 char xch; 

18 char *pt; 
19 

20 if( !(file->_flag & _XUsed) ) 

21 return( XEBADF ); 

22 if( !(file->_flag & _XI0WRT ) ) 

23 retum( XEBADF ) ; 

24 if( file-> flag & _XI0ERR ) 

25 { 

26 /* 

27 * Allow user to retry after an error. 

28 */ 

29 file->_flag &= ~_XI0ERR; 

30 } 

31 if( file->_base ) 

32 { 

33 storex = 1; /* put x in buffer after flush */ 

34 pt = file->_base; 

35 /* 

36 Check for line buffering 

37 */ 

38 if( file->_flag & _XI0LBF ) 

39 { 

40 nmtowrite = (int )(f ile->_ptr - f ile->_base) ; 

41 if( nmtowrite >= f ile->_buf siz ) 

42 { 

43 /* 

44 flush buffer, because it is full. 

45 */ 

46 } 

47 else if( x == '\n' | | x == '\r' ) 

48 { 

49 /* 

50 flush buffer, because of end of line 

51 */ 

52 storex = 0; 

53 *(file)->_ptr++ = x; 

54 ++nmtowrite; 

55 } 

56 else 
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57 { 

58 *(file)->_ptr++ = x; 

59 £ile->_cnt = 0; 

60 return ( ); 

61 } 

62 } 

63 else 

64 { 

65 nmtowrite = f ile->_bu£siz - ( file->_cnt + 1 ); 

66 } 

67 while ( nmtowrite > ) 

68 { 

69 rval = xwriteC xfileno(file) , pt, nmtowrite ); 

70 if( rval < ) 

71 { 

72 file->_flag |= _XIOERR; 

73 return( rval ); 

74 } 

75 if( rval == ) 

76 { 

77 file->_flag |= _XIOERR; 

78 return( XEIO ); 

79 } 

80 nmtowrite -= rval; /* Assert: rval <= nmtowrite */ 

81 pt += rval; 

82 } 

83 if( £ile->_£lag & _XIOLBF ) 

84 { 

85 i£( storex && ( x == 'W | | x == '\r f ) ) 

86 { 

87 /* 

88 write out carriage return 

89 */ 

90 xch = x; 

91 rval = xwriteC x£ileno(f ile) , &xch, 1 ); 

92 storex = 0; 

93 i£( rval < ) 

94 return( rval ); 

95 } 

96 file->_cnt = 0; 

97 } 

98 else 

99 £ile->_cnt = £ile->_buf siz - 1; /* _cnt == #chars remaining, 

100 -1 for "x" */ 

101 if ( file->_cnt < ) 

102 { 

103 /* 

104 This should not happen. 

105 */ 

106 returnC XEFAULT ); 

107 } 

108 file->_ptr = file->_base; 

109 if( storex ) 

110 «file->_ptr++ = x; 

111 } 

112 else 
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113 




{ 


114 




xch = x; 


115 




rval - xwrite( xf ileno(f ile) , &xch, 1 ); 


116 




i£( rval < ) 


117 




{ 


118 




file->_flag |= _XIOERR; 


119 




return( rval ); 


120 




} 


121 




if( rval != 1 ) 


122 




{ 


123 




file-> flag |= _XIOERR; 


124 




return! XEIO ); 


125 




} 


126 




file-> cnt = 0; 


127 




} 


128 


ret urn ( 


o ); 


129 


} 
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1 /* 

2 * @(#)xfprintf.c 1.6 5/31/85 
3 

4 Xfprintf(3X). 

5 */ 

6 #include "xgenlib.h" 
7 

8 static int _xputc( c, op) 

9 char c; 

10 XFILE *op; 

11 { 

12 xputc( c & Oxff, op); 

13 } 
14 

15 #ifndef zilog 
16 

17 xoprintf(op, control, args) 

18 XFILE *op; 

19 char ^control; /* the format control string */ 

20 unsigned args; 

21 { 
22 

23 return fmtout( xputc, op, control, &args ) ; 

24 } 
25 

26 xprintf( control, args ) 

27 char ^control; 

28 unsigned args; 

29 { 
30 

31 return _fmtout(_xputc, xstdout, control, &args ); 

32 } 
33 

34 #else 
35 

36 xoprintf(op, control, al, a2, a3, a4, args) 

37 XFILE *op; 

38 char ^control; /* the format control string */ 

39 int al, a2, a3, a4; 

40 unsigned args; 

41 { 

42 int sl=al, s2=a2, s3=a3, s4=a4; 
43 

44 return _fmtout(_xputc, op, control, &args, &sl, 2); 

45 } 
46 

47 xprintf (control, al, a2, a3, a4, a5, args) 

48 char ^control; 

49 int al, a2, a3, a4, a5; 

50 unsigned args; 

51 { 

52 int sl=al, s2=a2, s3=a3, s4=a4, s5=a5; 
53 

54 return fmtout( xputc, xstdout, control, &args, &sl, 1); 

55 } " 
56 



Jun 12 20:48 1985 xfprintf.c Page 2 



57 #endif 
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1 /* 

2 %W% %G% 
3 

4 Print password prompt, turn off echoing, and get password, restore terminal, 

5 Using the facilities of xoslib. 
6 

7 Caveat: This assumes xstdin and xstdout == user's terminal. 

8 */ 

9 #include <xstdio.h> 
10 

11 #define MXPWORD 25 
12 

13 char * 

14 xgetpass( prompt ) 
15 

16 char ^prompt; 

17 { 

18 static char buf[ MXPWORD ]; 

19 register char *pt = &buf[0]; 

20 register int rval ; 

21 register int i = 0; 
22 

23 /* 

24 Should use xprintf, but not available now... 

25 */ 

26 while( ^prompt != '\0 f ) 

27 { 

28 xputchar( *prompt++ ); 

29 } 

30 xfflush( xstdout ); 

31 xraw_term( xnofunc ); <!r" 

32 do { 

33 rval = xread( 0, pt, 1 ); 

34 if( rval < ) 

35 xperror( rval, "xgetpass" ); 

36 } while ( *pt != '\r' && *pt != 'W && 

37 rval == 1 && ++i < MXPWORD && ++pt ); 

38 *pt = '\0'j 

cj 39 xrestore_term(); 

^ 40 return( &buf[0] ); 

41 } 
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1 /* 

2 @(#)xgets.c 1.4 5/22/85 
3 

4 Xgets(3X). 

5 */ 

6 #include "xgenlib.h" 
7 

8 char * 

9 xgets( string ) 
10 

11 char ^string; 

12 { 

13 int c; 

14 char *p = string; 
15 

16 while ( (c = xgetcharO) != XEOF && c != 'W ) 

17 { 

18 *p++ = c; 

19 } 

20 *p = f \0'; 

21 if( c == XEOF ) 

22 return( XNULL ); 

23 return( string ); 

24 } 
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1 /* 

2 %W% %G% 
3 

4 Generic io control. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xerrno.h> 
9 

10 xioctK fd, cmd, param ) 
11 

12 int fd; 

13 int cmd; 

14 char *param; 

15 { 

16 int rval; 

17 register XFILE *file; 
18 

19 i£( fd > && fd < XNFILE ) 

20 { 

21 file = &_xiob[fd]; 

22 if( !( file->_flag & _XUsed )) 

23 return ( XEBADF ); 

24 /* 

25 file descriptor is OK. 

26 *' Jte 

27 rval = (*(f ile->_ioctl) )( f ile->_sys_id, cmd, param ); -^""^ 

28 return( rval ); 

29 } 

30 return ( XEBADF ); 

31 } 
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i /* n 

2 %W% %G% 
3 

4 Xmkarglist from xglob(3X) for Unix. 

5 This file belongs in Xoslib, but is here to keep the linker happy. 

6 */ ^— v 

7 #def ine ARGPOINTERSP /200 ] /* bytes for storing argument pointers */ 

8 #define ARGSPACE (400/ /* bytes for storing arguments */ 

9 V^/ 

10 static char *argbase; 

11 static char *stringbase; 

12 , _ -/ 

13 /extern jihar *xmalloc();_ /• > "flp^ C \^Ji_j^ S 

14 *■ — ""* ^ — _ ^> 

15 char ** ^ 

16 xmkarglist ( line, count ) 
17 

18 char *line; /* IN */ 

19 int *count; /* OUT */ 

20 { 

21 char **argp; 

22 char *slurpstring( ); 

23 char *argvsp; 

24 int marge; 
25 

26 marge = 0; 

27 /* 

28 Allocate space for argv and tokens in line 

29 */ 

30 if( xstrlen( line ) > ARGSPACE ) 

31 { 

32 return( (char **)0 ); 

33 } 

34 argvsp = xmall oc( A RGPOINTERSP + ARGSPACE ); 

35 if ( argvsp (=^~( chaf^J^p ) < Q ^ v o ) 

36 { ^ ~ — 7 

37 return( (char **)0 ); 

38 } 

39 argbase = &argvsp[ ARGPOINTERSP] ; /* store from first of buffer */ 

40 stringbase = line; /* scan from first of buffer */ 

41 argp = (char **) argvsp; 

42 while (*argp++ = slurpstring( )) 

43 margc++; 

44 *count = marge; 

45 return ( (char **)argvsp ); 

46 } 
47 

48 /* 

49 * Parse string into argbuf; 

50 * implemented with FSM to 

51 * handle quoting and strings 

52 */ 

53 char * 

54 slurpstring( ) 

55 { 

56 int got one = 0; 
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57 

58 

59 

60 

61 

62 

63 

64 

65 SO: 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 SI: 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 S2: 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

111 S3: 
112 



register char *sb = stringbase; 
register char *ap = argbase; 



char "» v tmp = argbase; 

/* 

Us^d^to return ' ! 'lor sj 
Ignore siTgni^c-ance of"^ ! ' 
*/ 

switch (*sb) { 

case f \0': 

goto OUT; 

case f ' : 
case f \t': 

sb++; goto SO; 



/* will return this if token found */ 
ej^entvprocessing. . . 



default: 



} 



goto si; 



switch (*sb) { 

case ' ' : 
case f \t f : 
case 'NO 1 : 

goto OUT; 



/* end of token */ 



case 



case 



'\V: 



sb++; goto S2; /* slurp next character */ -""* 



i ii i , 



sb++; goto S3; /* slurp quoted string */ 



default: 



*ap++ = *sb++; /* add character to token */ 
got_one = 1; 
goto SI; 



switch (*sb) { 



case 



•\0': 



goto OUT; 



default: 



*ap++ = *sb++; 
got_one = 1; 
goto SI; 



switch (*sb) { 
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113 

114 case f \0': 

115 goto OUT; 
116 

117 case ,,M : 

118 sb++; goto SI; 
119 

120 default: 

121 *ap++ = *sb++; 

122 got_one = 1; 

123 goto S3; 

124 } 
125 

126 OUT: 

127 if (got_one) 

128 *ap++ = '\0 f ; 

129 argbase = ap; /* update storage pointer */ 

130 stringbase = sb; /* update scan pointer */ 

131 if (got_one) 

132 return(tmp); 

133 return((char *)0); 

134 } 
135 

136 xdealglob( pt ) 

137 /* 

138 Free space allocated by either xglob or xmkarglist 

139 */ 
140 

141 char **pt; 

142 { 
143 

144 xfree( (char *)pt ); 

145 } 







c 
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¥> 

1 /* tsJh*^*' (S jU - 

2 %w% %g% ^> r ^k r \ 

3 ^ 

4 Unix routine to form path names relative to the user's home directory, 

5 current directory, etc. 

6 This routine belongs in Xoslib, but is here to keep the linker happy. 

7 */ 

8 #include <xspecial.h> 

9 #include <xerrno.h> 

10 /* 

11 for now ... 

12 */ 

13 #define xsprintf sprintf 
14 

15 ^include <pwd.h> 

16 

17 xmodnameC name, special, buf, sz_buf ) 

18 

19 char **name; 

20 int special; 

21 char *buf; 

22 int sz_buf; 

23 { 

24 int rval; 

25 char *pt = buf; 
26 

27 switch( special ) { 

28 case FILE_NAME: 

29 pt = *name; 

30 break; 

31 case CURRENT_DIR: 

32 buf[0] = '.•; 

33 buf[l] = '\0'; 

34 break; O .. ?>)£ 

35 case UP_DIRECTORY: -i ^*^& IT 

36 buf[0] = '.'; . ¥ <-^7 

37 bufCl] = '.'; l **" ( 

38 buf [3] = '\0'; 

39 case HM_RELATIVE: 

40 case HOME_DIR: 

41 { 

42 struct passwd * pwent; 

43 extern struct passwd *getpwuid(); 

44 int uid; 
45 

46 uid = getuidO; 

47 pwent = getpwuidC uid ); 

48 if( pwent == (struct passwd ,v )0 ) 

49 return( XEPERM ); 

50 if ( special == HM_RELATIVE ) 

51 { 

52 /* 

53 Check for enough room in buffer, 

54 concatenate home directory and *name. 

55 */ 

56 if( (2 + xstrlen( pwent->pw_dir ) + xstrlen( *name )) 
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57 > sz_buf ) 

58 retum( XE2BIG ); 

59 xsprintf( buf, "%s/%s", pwent->pw_dir, *name ); 

60 } 

61 else 

62 { 

63 /* 

64 Use home directory, 

65 */ 

66 pt = pwent->pw_dir; 

67 } 

68 } 

69 break; 

70 case CD_RELATIVE: 

71 /* 

72 Check for enough room in buffer, 

73 prepend "./" to *name. 

74 */ 

75 if( (3 + xstrlen( *name )) > szbuf ) 

76 retum( XE2BIG ); 

77 xsprintf( buf, "./%s", *name ); 

78 break; 

79 default: 

80 return ( XEINVAL ); 

81 } 

82 *name = pt; 

83 return( ); 

84 } 
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1 /* 

2 %W% %G% 
3 

4 Given an index to an open io object, 

5 Associate a buffer with it and return a pointer. 

6 */ 

7 #include <xstdio.h> 

8 #include <stdio.h> 
9 

10 extern char *xmalloc(); 

11 

12 XFILE *xodopen( od, direction ) 

13 

14 int od; /* object descriptor */ 

15 char direction; /* "r" for read, "w" for write */ 

16 { 

17 XFILE *f ile; • 

18 char *rval; 
19 

20 if ( od < || od >= _XNFILE ) 

21 { 

22 fprintf( stderr, "bad od\n" ); 

23 return( (XFILE *)XNULL ); 

24 } 

25 file - &_xiob[od]; 

26 /* ... 

27 Make sure object has been opened, and in the right direction. 

28 */ 

29 if( !(file->_flag & _XUsed) ) 

30 { 

31 fprintf( stderr, "not used\n" ); 

32 return( (XFILE *)XNULL ) ; 

33 } 

34 switch ( direction[0] ) { (p\ 

35 case 'r': y K " 

36 * if( file->_flag & _XI0READ ) 

37 ( 

38 file->_flag &= ~_XI0WRT; 

39 break; ~dP 

40 } 

41 if( file->_flag & _XI0RW ) a 

42 ( 

43 file->_flag &= -_XIOWRT; 

44 file->_flag |= _XI0READ; 

45 break; 

46 1 

47 $i£printf( stderr, "not readable\n" ); 

48 return( (XFILE *)XNULL ); 

49 case *w f : 

50 if( file->_flag & _XI0WRT ) 

51 ( 

52 file->_flag &= ~_XIOREAD; 

53 break; 

54 } 

55 if( file->_flag & _XI0RW ) 

56 ( 
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57 file->_flag &= ~_XIOREAD; 

58 file->_flag |= _XIOWRT; 

59 break; 

60 } 

61 fprint£( stderr, "not writeable\n" ); 

62 return( (XFILE *)XNULL ); 

63 default: 

64 fprint£( stderr, "not an option\n" ); 

65 return( (XFILE *)XNULL ); 

66 } 



fr^aT ~ = xma l loc( XBUFSIZ );/ UVZTol 



67 
68 

69 { 

70 fprintf( stderr, "no memory\n" ); 

71 retum( (XFILE *)XNULL ); 

72 } 

73 xsetbuf( file, rval, XBUFSIZ ); 

74 file->_flag &= ~_XIOMYBUF; /* for automatic deallocation */ 

75 return( file ); 

76 } 
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1 /* 

Z ToVtAt /o\i7a 

3 

4 Xogets(3X). 

5 */ 

6 #include <xstdio.h> 
7 

8 char * 

9 xogets( string, n, stream ) 
10 

11 char *string; 

12 int n;i 

13 XFILE *stream; 

14 { 

15 int cjl 

16 char *p = string; 
17 

18 while ( (c = xgetc( stream)) != XEOF && c != '\n' && — n > ) 

19 { 

20 *p++ = c; 

21 } 

22 *p = '\0'; 

23 return( string ); 

24 } una 
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1 /* 

2 @(#)xperror.c 1.4 6/4/85 
3 

4 Xperror(3X) and xrerror. 

5 */ 

6 #include "xgenlib.h" 
7 

8 #define MINEXERR 
9 

10 char *x_errlist[] = { 

11 "No Error ", 

12 ,f Not super-user ", 

13 lf No such file or directory ", 

14 " No such process ", 

15 " interrupted system call " , 

16 " I/O error ", 

17 " No such device or address ", 

18 ft Arg list too long ", 

19 " Exec format error ", 

20 lf Bad file number ", 

21 " No children ", 

22 " No more processes ", 

23 " Not enough core ", 

24 ,f Permission denied ", 

25 ,f Bad address ", 

26 " Block device required ", 

27 " Mount device busy ", 

28 " File exists ", 

29 " Cross-device link ", 

30 " No such device ", 

31 " Not a directory ", 

32 ,f Is a directory ", 

33 " Invalid argument tr , 

34 " File table overflow ", 

35 " Too many open files ", 

36 " Not a typewriter ", 

37 " Text file busy ", 

38 " File too large ", 

39 " No space left on device ", 

40 " Illegal seek ", 

41 " Read only file system ", 

42 ft Too many links ", 

43 " Broken pipe tf , 

44 !f Argument too large ", 

45 " Result too large ", 

46 " Operation would block", 

47 " Operation now in progress", 

48 " Operation already in progress", 

49 " Socket operation on non-socket", 

50 " Destination address required", 

51 " Message too long", 

52 " Protocol wrong type for socket", 

53 " Protocol not available", 

54 " Protocol not supported", 

55 " Socket type not supported", 

56 " Operation not supported on socket", 



Jun 12 20:48 1985 xperror.c Page 2 



57 " Protocol family not supported", 

58 " Address family not supported by protocol family", 

59 " Address already in use", 

60 " Can't assign requested address", 

61 " Network is down", 

62 " Network is unreachable", 

63 " Network dropped connection on reset", 

64 " Software caused connection abort", 

65 " Connection reset by peer", 

66 " No buffer space available", 

67 " Socket is already connected", 

68 " Socket is not connected", 

69 " Can't send after socket shutdown", 

70 " Too many references: can't splice", 

71 " Connection timed out", 

72 " Connection refused", 

73 " Too many levels of symbolic links", 

74 " File name too long", 

75 " Host is down", 

76 " No route to host", 

77 }; 
78 

79 static char bad_err[] = "UNKNOWN ERROR"; 

80 char *xrerror(); 

81 extern char *xsyserr( ) ; 
82 

83 #define MAXEXERR 65 

84 

85 xperror( eval, rname ) 

86 

87 int eval; 

88 char *rname; 

89 { 

90 int len; 

91 int olderrno; 

92 char ,v estring; 
93 

94 olderrno = -eval; 

95 len = xstrlen( rname ); 

96 if ( len > ) 

97 { 

98 if (xwrite( 2, rname, len ) != len ) 

99 return; 

100 if (xwrite( 2, ":", 1 ) != 1 ) 

101 return; 

102 } 

103 estring = xrerror( eval ); 

104 len = xstrlen( estring ); 

105 xwrite( 2, estring , len ); 

106 xwrite( 2, "\n", 1 ); 

107 } 
108 
109 

110 char * 

111 xrerror( eval ) 
112 
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113 int eval; 

114 { 

115 int olderrno; 
116 

117 olderrno = -eval; 

118 if ( eval <= XSYSERR ) 

119 { 

120 return( xsyserrO ); 

121 } 

122 else if ( olderrno < MINEXERR | | olderrno > MAXEXERR ) 

123 { 

124 /* 

125 bad error number 

126 */ 

127 return( bad_err ) ; 

128 } 

129 return( x_errlist[ olderrno - MINEXERR ] ); 

130 } 



Mar 29 15:19 1985 xread.c Page 1 



1 /* 

2 %W% %G% 
3 

4 Generic read. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xerrno.h> 
9 

10 xread( fd, buf, len ) 
11 

12 int fd; 

13 char *buf; 

14 int len; 

15 { 

16 int count; 

17 register XFILE *file; 
18 

19 if( fd >= && fd < _XNFILE ) 

20 { 

21 file = &_xiob[fd]; 

22 if( !( file->_flag & ( _XIOREAD | _XIORW )) || 

23 !( file->_flag & _XUsed ) 

24 ) 

25 return ( XEBADF ); 

26 /* 

27 file descriptor is OK. 

28 */ e^ 

29 _^, count = (*( file->_read) )( f ile->^sys_id, buf, l en ); 

30 return( count ); *& ~ ' D^ 

31 } " 

32 return( XEBADF ); ^__ 

33 } (^^<^JK 
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1 /* 

2 (a(#)xsetbuf.c 1.4 5/29/85 
3 

4 System independent routine for setting buffer associated with 

5 pointers to file objects 

6 */ 

7 #include "xgenlib.h" 
8 
9 xsetbuf( file, flag, len ) 

10 

11 XFILE *file; 

12 char *flag; 

13 int len; 

14 { 
15 

16 if( !(file->_flag & _XUsed )) 

17 return ( XEBADF ); 

18 /* 

19 flush old buffer, if appropriate 

20 */ 

21 xfflush( file ); 

22 /* | 

23 release old buffer, if appropriate! 

24 */ I 

25 if( file->_base && ! (f ile->_f lag &|_XIOMYBUF) ) 

26 { 

27 xfree( file->_base ); 

28 } 

29 if( Iflag ) 

30 { j 

31 /* 

32 User specified no buffering 

33 */ 

34 file->_flag &= ~(_XIOMYBUF! ); 

35 file->_flag |= _XIONBF; 

36 file->_base = (char *)0; 

37 file->_cnt = 0; 

38 } 

39 else 

40 { 

41 /* 

42 User supplied buffer. 

43 */ 

44 file->_buf siz = len; 

45 file->_flag |= _XI0MYBUF; 

46 file->_base = flag; 

47 /* 

48 Assert: !( (file->_flag & _XIOREAD) && (file->_flag & _XI0WRT)) 

49 */ 

50 file->_cnt = (file->_flag & (_XI0LBF | _XI0READ))? : len ; 

51 file-> ptr = file->_base; 

52 } 

53 return( ); 

54 } 
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1 /* 

2 * @(#) XS printf.c 1.3 5/31/85 

3 * 

4 * Xsprint£(3X). 

5 * format data to a memory string 

6 */ 

7 #include "xgenlib.h" 
8 

9 /* 

10 * this function behaves much like putc with only difference 

11 * is that it writes to an user buffer instead of a file. 

12 */ 

13 static _store(x, to) 

14 char x; 

15 char **to; 

16 { 

17 **to = x; 

18 (*to)++; /* point to the next location of the buffer ">'<"/ 

19 **to-0; /* terminate for safety */ 

20 } 
21 

22 #ifndef zilog 
23 

24 char * 

25 xsprintf (string, control, args) 

26 char ''string; 

27 char ^control; 

28 unsigned args; 

29 { 

30 return (char *) fmtout( store, &string, control, &args); 

31 } 
32 

33 #else 
34 

35 char * 

36 xsprintf (string, control, al, a2, a3, a4, args) 

37 char "'''string; 

38 char ^control; 

39 int al, a2, a3, a4; 

40 unsigned args; 

41 { 

42 int sl=al, s2=a2, s3=a3, s4=a4; 
43 

44 return (char *)_fmtout(_store, &string, control, &args, &sl, 2); 

45 } 
46 

47 #endif 
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1 /* 

2 %W% %G% 
3 

4 Generic write. 

5 */ 
6 

7 #include <xstdio.h> 

8 #include <xerrno.h> 
9 

10 xwriteC fd, bu£, len ) 
11 

12 int fd; 

13 char *buf; 

14 int len; 

15 { 

16 int count; 

17 register XFILE *file; 
18 

19 if( fd > && fd < _XNFILE ) 

20 { 

21 file = &_xiob[fd]; 

22 if( !( file->_flag & ( _XIOWRT | _XIORW )) || 

23 !( file->_flag & _XUsed ) 

24 ) 

25 return ( XEBADF ); 

26 /* 

27 file descriptor is OK. 

28 */ 

29 count = (*(file->_write))( f ile->_sys_id, buf, len ); 

30 return( count ); 

31 } 

32 retum( XEBADF ); 

33 } 



